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ABSTRACT 


Transportation  resource  planning  and  implementation  within  a  theater  of  operations 
have  always  been  challenging  for  logisticians.  This  was  especially  true  during  Operation 
Desert  Storm,  where  new  lessons  were  learned  because  of  a  scenario  different  than  any 
other  experienced.  What  was  needed  was  a  transportation  asset-focused  model  that 
would  allow  logisticians  to  plan  more  effectively  for  current  and  future  transportation 
system  requirements.  The  focus  of  this  thesis  is  the  development  of  the  Intra-Theater 
Transportation  System  Simulation  (ITTSS).  ITTSS  is  an  object-oriented  simulation 
model,  which  was  developed  to  simulate  a  complete  transportation  system  where  units 
consume  supplies,  supply  points  resupply,  and  assets  deliver  the  supplies.  ITTSS  can 
also  be  used  to  schedule  specific  missions  of  moving  cargo  from  one  location  to  another. 
Both  modes  can  be  run  separately  or  together.  A  variety  of  input  parameters  concerning 
supply  points,  motoipools,  maintenance  facilities,  fuelpoints,  convoys  and  the  operations 
performed  can  be  adjusted  to  fit  any  specific  scenario.  The  measures  of  performance 
produced  by  the  model  include  the  daily  amount  of  cargo  moved,  time  required  to  move 
cargo  to  a  certain  location,  and  the  availability  and  utilization  rates  of  vehicles.  ITTSS 
is  designed  to  run  on  a  personal  computer,  using  the  PC-OS/2  version  of  MODSIM  n, 
the  OS/2  1.2  operating  system,  and  Microsoft  C  5.0. 
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I.  INTRODUCTION 


A.  BACKGROUND 

Victory  is  the  beautiful,  bright-coloured  flower.  Transport  is  the  stem  without 
which  it  could  never  have  blossomed.  Sir  Winston  S.  Churchill  [Ref.  1:  p.  202] 

Ever  since  armies  have  gone  to  war,  logistical  support  has  played  an  important  role 
in  the  outcome  of  battles  and  the  strategy  of  war.  However,  managing  the  transport  of 
supplies  and  the  transportation  assets  within  the  transportation  system  has  been  far  from 
easy.  Napoleon  was  quoted  as  saying 

"that  logistics  make  up  as  much  as  nine  tenths  of  the  business  of  war,  and  that  the 
mathematical  problems  involved  in  calculating  the  movements  and  supply  of  armies 
are  not  unworthy  of  a  Leibnitz  or  a  Newton."  [Ref.  2:  p.  231] 

During  Operation  Desert  Storm,  new  lessons  were  learned  in  logistics  because  of 
a  scenario  different  than  any  other  experienced.  Support  requirements  for  the  men  and 
equipment  that  were  deployed  increased  and  changed  dramatically.  The  successful 
accomplishments  in  meeting  transportation  requirements  within  the  theater  of  operations 
in  Saudi  Arabia  were  instrumental  in  our  success  in  the  campaign. 

However,  the  present  configuration  of  transportation  units  did  not  support  the 
transportation  requirements.  Hundreds  of  vehicles,  especially  heavy  transporters,  were 
leased  from  other  countries  to  correct  this  deficiency.  If  the  Army  logisticians  had  a 
realistic  simulation  model  that  was  focused  on  transportation  assets,  it  would  have 
assisted  them  in  planning  more  effectively  for  current  and  future  transportation  system 
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requirements.  Such  a  model  would  allow  the  same  scenarios  to  be  used  to  test  different 
transportation  unit  organizations  and  future  transportation  asset  prototypes  to  optimize 
the  best  mix  of  assets  and  the  organization  of  units  within  the  theater. 

1.  Operation  Desert  Storm 

Operation  Desert  Storm  offered  enormous  challenges  to  logisticians  in  the 


movement  of  vehicles  and  cargo  within  the  theater  of  operations.  They  were  extremely 
successful  in  meeting  every  transportation  obstacle  they  faced.  One  obstacle  was  the 
movement  of  two  corps  before  the  major  offensive  of  the  war. 


Figure  1.  Corps  Movements 
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In  preparation  for  this  offensive,  the  theater  Commander-In-Chief  (CINC)  tasked  his 
logisticians  to  develop  a  plan  to  move  all  of  the  VII  Coips’  and  XVHI  Airborne  Corps’ 
equipment  within  a  two  week  timeframe.  The  logisticians  did  not  have  a  model  to 
provide  them  with  reasonable  alternatives.  "After  many  grueling  days  and  nights  of 
analyzing  every  movement  concept  imaginable,  [it  was]  concluded  that  the  move  could 
not  be  completed  in  14  days"  [Ref.  3:  p.  8].  At  least  three  weeks  were  needed  because 
of  the  enormous  amount  of  equipment  involved  and  the  limited  available  assets  to  move 
them. 


Table  1.  CORPS  EQUIPMENT  MOVED  BEFORE  OFFENSIVE 


Assets  Available 

Loads  to  Move 

280  Heavy  Equipment  Transporters 

535 

280  Lowboys  (Equipment  Transporters) 

1793 

500  Flatbeds  (Cargo  Trailers) 

2815 

This  move  was  so  critical  to  the  start  of  the  offensive  that  the  CINC  "required  the 
SUPCOM  [Support  Command]  CG  [Commanding  General]  to  guarantee  he  complete  the 
movement  in  21  days,  and  required  the  SUPCOM  to  sign  a  document  attesting  to  the 
same"  [Ref.  3:  p.  9].  The  result  was  that  "exactly  21  days  after  the  start  date,  the 
greatest  battlefield  movement  in  history  was  complete"  [Ref.  3:  p.  10]. 

If  the  logisticians  in  Operation  Desert  Storm  had  a  transportation-asset- 
focused  simulation  model,  it  could  have  assisted  them  in  estimating  the  time  needed  to 
move  the  coips  equipment  using  their  available  assets.  Further  study  of  the  Operation 
Desert  Storm  scenario  with  different  numbers  and  kinds  of  assets  would  be  possible  using 
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this  model  to  determine  what  transportation  unit  configurations  would  best  suit  another 
Operation  Desert  Storm  type  war.  Using  future  prototypes  in  the  same  scenario  could 
also  show  if  having  better  performing  or  more  reliable  equipment  could  have  made  a 
difierence  in  the  amount  of  cargo  moved  daily. 

2.  New  Transportation  Corps  Doctrine 

The  advantages  in  having  the  ability  to  move  an  entire  Heavy  Maneuver 
Force  (HMF)  in  one  lift  were  apparent  during  Operation  Desert  Storm.  Even  though  this 
one  lift  concept  was  not  used  in  Saudi  Arabia  because  of  the  lack  of  heavy  equipment 
transporters  (HET),  the  ability  to  analyze  the  movement  of  such  a  HMF  in  the  Operation 
Desert  Storm  scenario  using  HETs,  would  assist  logisticians  in  planning  for  and 
implementing  their  HET  resources  for  future  operations  in  a  desert  scenario.  Such 
analysis  could  also  determine  whether  or  not  the  same  unit  configuration  would  succeed 
in  fulfilling  transportation  requirements  within  a  different  theater  of  operations.  Instead 
of  having  a  unit’s  tracked  vehicles  road-march  several  hundred  miles,  HETs  can  be  used 
to  relocate  the  unit.  This  new  doctrine  results  in  substantial  fuel  savings  and,  more 
importantly,  a  more  rested  and  better  prepared  maneuver  force  [Ref.  4:  p.  42].  Both 
vehicles  and  crews  have  less  wear  and  tear.  The  Transportation  Corps  is  developing  the 
new  doctrine  for  HET  companies  that  can  carry  a  battalion  size  HMF.  Four  such 
companies  would  be  able  to  provide  a  single-lift  capacity  for  a  brigade  size  HMF.  A 
simulation  model  that  could  focus  on  the  HETs  could  test  this  configuration  in  a  variety 
of  potential  scenarios  including  the  recent  Operation  Desert  Storm  Scenario.  [Ref.  4:  p. 
42] 


4 


Every  major  conflict  of  war  produces  new  transportation  doctrine  based  on 
the  transportation  system  in  existence,  to  include  the  modes  of  transportation  assets 
available,  the  network  of  vehicles,  trains,  aircraft  and  vessels  and  the  availability  of 
various  assets.  A  European  scenario  dictates  the  use  of  the  existing  rail  lines.  Saudi 
Arabia  favored  using  HETs  to  relocate  tracked  vehicles.  The  next  location  for  a  major 
conflict  is  unknown,  but  having  a  transportation-asset-focused  simulation  model,  could 
test  what  kind  of  transportation  unit  configurations  would  be  needed  and  how  many  and 
what  kind  of  assets  are  required  to  perform  the  mission. 

B.  MODEL  DISCUSSION 

The  purpose  of  this  thesis  is  to  describe  the  development  of  an  objected-oriented 
simulation  model,  called  the  Intra-Theater  Transportation  System  Simulation  (ITTSS). 
Currently,  there  are  no  models  available  that  focus  on  individual  asset  performance  and 
reliability  for  an  intra-theater  scenario.  Many  models  use  flat  rates  for  vehicle  which  as 
resulted  in  standard  transportation  doctrine  using  using  83  %  for  long  hauls  and  75  %  for 
short  hauls  for  truck  availability.  (Ref.  5:  p.  3-22]  Many  existing  large-scale  combat 
models  aggregate  transportation  assets  and  therefore  lose  the  ability  to  analyze  the 
individual  performance  of  these  assets.  A  detailed  simulation  would  assist  logisticians 
greatly  in  determining  transportation  unit  organizations  to  meet  the  requirements  in  a 
particular  theater  of  operations.  A  model  that  could  also  simulate  a  transportation  system 
with  a  variety  of  realistic  inputs  and  parameters  that  could  be  varied  depending  on  a 
particular  scenario  would  further  contribute  to  logistics  analysis.  The  Intra-Theater 
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Transportation  System  Simulation  was  developed  with  these  needs  in  mind.  With  a  focus 
on  transportation  assets  and  flexibility  to  model  a  variety  of  scenarios,  ITTSS  will  assist 
logisticians  in  transportation  resource  planning  and  implementation  within  an  intra-theater 
of  operations. 

The  recent  advent  of  object-oriented  simulation  programming  makes  developing 
such  a  simulation  model  more  attractive  and  useful  than  past  simulation  models.  An 
object-oriented  language  like  MODSJM  H™,  allows  the  modeling  assets  and  cargo  as 
actual  objects  that  can  move  around  and  be  loaded  within  the  transportation  system. 
Nodes  can  be  treated  as  objects  and  have  supply,  motorpool,  maintenance,  and  fuelpoint 
objects  associated  with  them. 

The  result  is  a  simulation  model  that  the  user  can  understand  more  clearly,  and  that 
simulates  more  realistically  the  way  the  elements  of  a  transportation  system  actually 
work.  Units  consume  supplies,  supply  points  reorder  supplies  from  their  supply  source, 
and  vehicles  load  and  transport  these  supplies.  All  are  objects  that  actually  perform  these 
functions. 

MODSIM  IT",  being  modular,  makes  adaptation  to  various  scenarios  and  unit 
organizations  very  easy.  ITTSS  focuses  on  vehicle  assets,  but  with  relative  ease,  can  be 
adapted  to  utilize  aircraft,  trains,  or  inland  waterway  vessels. 

Being  able  to  focus  on  the  movement  of  cargo  and  transportation  assets  in  an 
object-oriented  view  gives  a  clearer  understanding  of  the  movement  of  assets  and  cargo. 
Specific  assets  and  cargo  can  be  tracked  individually  within  the  transportation  network. 
Assets  can  have  individual  performance  and  reliability  characteristics  and  methods  that 
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let  them  perform  realistic  functions.  Cargo  can  be  individual  items  that  have  dimensions 
and  be  can  traced  within  the  theater  of  operations. 

ITTSS  simulates  an  intra-theater  transportation  system  to  include  daily  supply  and 
transportation  operations  and  specific  movement  of  cargo  from  one  location  to  another. 
The  focus  is  on  assets  and  their  performance  within  a  theater  of  operations. 

C.  ORGANIZATION  OF  THESIS 

Chapter  I  has  addressed  the  background  and  motivation  for  an  intra-theater 
simulation  model.  In  Chapter  n  the  methodology  in  developing  ITTSS,  the  sources  for 
the  model’s  data,  and  the  defining  of  the  transportation  network  is  discussed. 
Assumptions,  measures  of  performance,  input  parameters,  reports  and  a  complete 
description  of  the  capabilities  of  ITTSS  is  found  in  Chapter  HI.  Chapter  IV  provides  an 
example  comparing  the  new  Transportation  Corps  doctrine  with  doctrine  used  during 
Operation  Desert  Storm  and  demonstrates  the  capabilities  of  the  model.  Concluding 
remarks  and  recommendations  for  future  enhancements  are  discussed  in  Chapter  V. 
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H.  METHODOLOGY  AND  DATA 


A.  INTRODUCTION 

ITTSS  is  written  in  an  object-oriented  computer  language,  MODSIM  U™.  This 
allows  the  physical  entities  of  ITTSS ’s  transportation  system  to  be  treated  as  objects. 
Objects  have  methods  that  allow  them  to  perform  functions  and  fields  that  describe  them. 
MODSIM  H™  also  includes  many  convenient  procedures  and  functions  that  are  built  in 
and  eliminates  the  need  to  create  computer  code  for  many  routine  functions.  This 
chapter  discusses  the  sources  of  data  for  the  model  and  describes  the  objects  that  define 
the  basic  transportation  network  of  ITTSS. 

B.  DATA 

1.  Published  Data 

All  performance  data  is  taken  from  technical  manuals  or  a  respected  source 
like  "Jane’s  Military  Vehicles  and  Logistics".  [Ref.  6.]  This  data  includes  fuel 
consumption  rates,  fuel  capacities,  vehicle  length  and  weights,  and  cargo  dimensions. 

2.  Vehicle  Speeds 

Rates  of  travel  for  the  selected  vehicles  in  ITTSS  are  obtained  from  the 
Waterways  Experiment  Station  (WES)  in  Vicksburg,  Mississippi.  WES  does  an 
enormous  amount  of  mobility  testing  on  almost  every  vehicle  in  the  Army’s  inventory. 
They  have  provided  the  average  rate  of  speed  for  a  particular  type  and  model  of  vehicle 
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traveling  over  a  road  with  a  particular  type  of  road  surface  and  terrain.  These  speeds 
are  used  when  determining  how  long  it  takes  a  vehicle  to  travel  over  a  road  in  the 
network. 

3.  Reliability  Data 

For  each  vehicle  used  in  ITTSS,  reliability  data  was  obtained  from  the  U.S. 
Army  Material  Systems  Analysis  Activity  (AMSAA),  located  at  Aberdeen  Proving 
Grounds,  Maryland.  AMSAA  does  extensive  testing  on  all  Army  vehicles  and  provided 
the  following  reliability  measures. 

a.  Mean  Miles  Between  Operational  Mission  Failure 

This  is  the  average  rate  of  occurrence  of  a  mission  failure  as  a  result 
of  any  cause.  Mission  failure  is  defined  as  not  being  able  to  complete  a  mission  in  an 
acceptable  manner.  Vehicles  that  fail  are  not  able  to  continue  with  a  convoy  or  complete 
the  mission  unless  repaired.  [Ref.  7:  p.  1] 

b.  Maintenance  Manhours  Per  Mile 

This  reliability  factor  is  the  average  number  of  maintenance  manhours 
that  is  needed  per  mile  traveled  by  the  vehicle  between  operational  mission  failures.  This 
includes  the  actual  wrench  turning  time  needed  to  repair  the  vehicle.  More  miles 
between  operational  mission  failures  imply  more  time  required  to  repair  the  asset.  [Ref. 
7:  p.  1] 


9 


c.  Administrative  and  Logistics  Downtime 

This  is  a  flat  rate  that  provides  a  measure  of  how  long  a  vehicle  is  down 
for  each  operational  mission  failure,  excluding  actual  maintenance  wrench  turning  time. 
This  includes  time  needed  for  recovery  of  assets,  waiting  for  parts,  tools,  or  mechanics. 
[Ref.  7:  p.  1] 

C.  NETWORK  DEFINITION 

The  basic  transportation  network  of  ITTSS  consists  of  assets,  nodes,  links,  and 
cargo.  They  are  all  objects  that  have  fields  and  methods  that  distinguish  and  describe 
them. 


Figure  2.  Objects  in  the  Network 
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1.  Assets 


The  only  assets  in  this  simulation  are  vehicles.  Vehicles  consume  fuel,  load 
cargo,  and  travel  from  one  node  to  another.  They  travel  in  convoys  along  routes 
predetermined  by  the  user.  Vehicle  objects  in  this  simulation  include  cargo  trucks, 
tractors  trailers,  lowboys,  heavy  equipment  transporters  and  wreckers.  Other  types  of 
assets  like  aircraft,  trains,  watercraft  or  other  types  of  vehicles  can  easily  be  incorporated 
into  the  model  with  minimal  code  change. 

2.  Nodes 

Nodes  are  objects  and  can  have  any  combination  of  the  objects  listed  below. 
See  Figure  2. 

a.  Unit  Objects 

These  are  the  consumers  of  the  simulation  model.  They  consume 
supplies  from  their  supply  point  at  the  end  of  each  day  or  at  a  time  designated  by  the 
user.  Units  can  be  given  dates  to  start  and  end  consuming. 

b.  Supply  Objects 

These  objects  conduct  supply  operations  at  a  selected  time  each  day. 
Stock  levels  are  checked  and  resupplies  are  ordered  from  its  higher  supply  source  object. 
Supplies  are  received  from  vehicles  that  arrive  at  the  supply  point.  Supply  records  are 
used  to  account  for  items  brought  in  and  taken  out  of  inventory.  Supply  objects  have  a 
certain  number  of  loading  and  receiving  points  that  serve  convoys.  Material  Handling 
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Equipment  (MHE)  is  available  at  each  point  and  available  MHE  is  used  to  determine  how 
many  vehicles  of  a  convoy  can  be  loaded  or  unloaded  at  the  same  time. 

c.  Motorpool  Objects 

All  vehicles  belong  to  a  specific  motorpool  object.  Motorpools 
schedule  missions  using  available  vehicles  and  keep  records  on  availability  and 
utilization.  The  matching  of  cargo  to  vehicles  and  loading  of  vehicles  are  conducted  by 
motorpools.  Convoys  are  formed  and  prepared  for  travel. 

d.  Maintenance  Objects 

Repair  of  vehicles  occur  in  maintenance  objects.  Vehicles  that 
breakdown  are  logged  into  the  maintenance  facilities,  repaired  and  returned  to  their 
motorpools. 

e.  Fuelpoint  Objects 

These  objects  refuel  vehicles.  Fuel  levels  are  maintained  at  each 
fuelpoint  to  show  fuel  consumption  and  demand.  Vehicles  do  not  run  out  of  fuel,  as  a 
reserve  is  carried  by  the  convoy  in  case  the  distance  to  the  next  fuel  point  is  beyond  the 
range  of  the  convoy.  Records  will  indicate  those  links  in  a  route  that  vehicles  would 
need  reserve  fuel.  The  user  may  then  want  to  establish  another  fuelpoint. 

3.  Links 

links  are  distinguished  by  an  origin,  destination  and  distance  in  miles.  Each 
link  is  characterized  by  a  particular  road  surface  of  either  concrete,  bituminous  (asphalt), 
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gravel,  or  dirt  and  a  type  terrain  that  is  either  flat,  rolling  hills,  hills  with  curves,  or 
mountainous. 


Links  are  collected  together  to  form  routes  and  can  be  a  part  of  any  number 
of  routes.  More  than  one  route  list  can  be  defined  for  the  network  to  have  several 
ground  routes  or  air,  train,  or  inland  waterway  routes. 

4.  Cargo 

These  objects  are  supply  items  in  pounds  or  special  items  with  dimensions 
in  inches  and  pounds.  Cargo  objects  must  have  a  mode  of  resupply  established.  Cargo 
is  moved  by  cargo  trucks,  trailers,  lowboys,  heavy  equipment  transporters  or  wreckers. 
Cargo  can  be  separable  or  nonseparable.  If  separable,  cargo  is  aggregated  and  separated 
by  pounds.  Classes  of  supply  are  separable  in  UTSS.  These  cargo  objects  can  be 
separated  into  smaller  objects,  so  each  cargo  object  will  be  a  separate  entity  no  matter 
how  small.  Tanks  and  other  major  items  of  interest  are  nonseparable  and  cannot  be 
separated  into  smaller  items.  They  are  loaded  by  weight  and  length,  and  can  be  easily 
tracked  throughout  the  network. 

Cargo  can  be  prioritized  by  the  user.  The  higher  the  priority  given  a  cargo, 
the  higher  priority  a  convoy  has  clearing  through  an  intersection  and  offloading  cargo  at 
a  supply  receiving  point.  All  cargo  is  accounted  for  by  supply  records  and  kept  in 
supply  point  inventories. 
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ffl.  MODEL  DESCRIPTION 


A.  ASSUMPTIONS  AND  MODEL  LIMITATIONS 

1.  Assets 

In  ITTSS,  all  assets  are  vehicles.  Tractors  are  aggregated  with  trailers  and 
tankers  to  keep  the  model  manageable.  Reliability  data  is  available  on  trailers,  but  it  is 
assumed  in  ITTSS  that  the  determining  factor  of  whether  or  not  a  prime  mover  and 
trailer  are  mission  capable  is  the  operational  status  of  the  prime  mover.  A  trailer  can 
usually  be  moved  regardless  of  its  operational  status,  but  without  its  prime  mover  it 
cannot  be  moved  at  all.  It  is  assumed  that  there  would  be  no  difference  in  the 
performance  of  the  assets  if  you  separate  tractor  from  trailers  or  keep  them  together. 

2.  Combat  Losses 

Combat  losses  are  not  modelled  in  ITTSS.  Future  embellishments  to  the 
model  could  include  such  things  as  random  ambushes  that  impact  on  the  performance  of 
assets  and  the  movement  of  cargo  and  that  partially  or  fully  disable  a  link  or  node. 

3.  Links 

Each  individual  link  is  uniform  in  terrain  and  road  surface.  Instead  of 
updating  a  traversed  link’s  characteristics  every  100  meters  and  thereby  having  the  need 
of  a  large  database,  the  model  has  user-defined  links  that  have  specified  lengths,  terrain 
and  road  surfaces.  These  characteristics  are  chosen  because  a  wealth  of  information  is 
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currently  available  in  this  form.  This  greatly  reduces  the  database  needed,  and  allows 
the  model  to  be  run  on  a  stand-alone  personal  computer.  Therefore,  if  no  information 
is  available  from  the  Defense  Mapping  Agency  concerning  a  particular  area  in  the  world, 
the  user  can  input  a  best  guess  as  to  the  length,  terrain  and  road  surface  of  a  link. 

4.  Rates  of  Travel 

Constant  rates  of  travel  are  assumed  through  each  link  a  vehicle  traverses. 
However,  each  vehicle  type  may  have  a  different  rate  that  is  based  on  the  link’s  road 
surface  and  terrain.  When  vehicles  travel  in  convoy,  the  slowest  vehicle’s  rate  of  travel 
is  used  in  determining  the  convoy’s  travel  time. 

5.  Vehicle  Breakdowns 

Because  links  are  uniform,  vehicles  only  breakdown  at  nodes.  Vehicles  will 
check  their  status  at  each  node  and  are  either  temporarily  fixed  or  left  to  be  recovered. 

6.  Aggregation  of  Cargo 

Supply  cargo  are  aggregated  instead  of  tracking  each  nut  and  bolt  in  the 
supply  system.  At  the  basic  level,  classes  of  supply  are  tracked  and  separated  by 
pounds.  Special  cargo,  like  tanks  or  infantry  fighting  vehicles  are  not  separable  and  are 
individually  tracked.  Any  cargo  can  be  designated  nonseparable  and  scheduled  to  be 
moved  from  one  location  to  another. 

7.  Units 

All  units  have  constant  consumption  rates  for  any  supplies  the  user  wishes  to 
use  in  the  simulation.  Estimated  rates  of  consumption  for  the  different  classes  of  supply 
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for  various  sizes  of  units  are  published  in  the  U.S.  Army’s  Field  Manual  101-10-1/2, 
Staff  Officer’s  Field  Manual :  Organizational,  Technical,  and  Logistical  Data  Planning 
Factors  (Volume  2).  [Ref.  8.] 

B.  MEASURES  OF  PERFORMANCE 

UTSS,  because  of  its  flexibility,  can  provide  several  different  measures  of 
performance  to  answer  the  following  types  of  questions. 

1.  Time  Required  to  Move  Cargo 

What  is  the  amount  of  time  required  to  move  a  large  amount  of  nonseparable 
cargo  from  one  location  to  another? 

2.  Average  Amount  of  Cargo  Moved  Daily /Weekly 

Given  a  transportation  network,  what  is  the  average  amount  of  cargo  in  short 
tons  that  is  moved  daily  from  motorpools  to  supply  points? 

3.  Utilization  Rate  of  Assets 

How  many  assets  are  actually  being  used  or  committed  daily?  Are  there  too 
many  assets  for  the  mission  being  conducted  or  are  more  needed  to  successfully 
accomplish  the  mission?  If  cargo  needs  to  be  relocated  within  a  certain  time  period,  how 
does  increasing  or  decreasing  the  number  of  assets  effect  the  time  needed  to  relocated  the 
cargo?  If  the  simulation  is  renin  and  decreasing  the  number  of  assets  onhand  does  not 
effect  the  time  required  to  relocate,  then  there  are  more  assets  than  needed  to  accomplish 
the  mission.  On  the  other  hand,  if  increasing  the  amount  of  assets  reduces  the  relocation 
time,  then  more  assets  are  needed. 
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4.  Availability  Rate  of  Assets 

How  many  assets  are  mission  capable?  This  may  be  calculated  on  either  a 
daily  basis  or  for  a  specific  mission. 

5.  Comparison  of  the  performance  of  assets 

How  is  asset  performance  (average  pounds  moved  or  time  required  to  move 
cargo)  affected  by  unit  (assets)  location,  type  of  assets,  unit  size,  prioritization  of  cargo, 
or  selection  of  different  routes? 

C.  PARAMETERS 

1.  Model  Input  Parameters 

The  model  has  many  input  parameters  that  the  user  can  modify  to  allow  a 
wide  range  of  scenarios.  A  list  of  these  parameters  follows. 

a.  Asset  parameters 

(1 )  Performance  characteristics.  Rates  of  travel  and  fuel  consumption 
are  in  the  model’s  data  files  (Appendix  C)  for  a  variety  of  vehicles.  Rates  of  travel  are 
given  for  each  vehicle  over  a  particular  road  surface  and  terrain.  These  rates  determine 
the  length  of  time  a  vehicle  takes  to  traverse  a  link.  Fuel  consumption  rates  are  used  to 
determine  how  much  fuel  is  needed  to  support  the  assets.  Fuel  levels  are  maintained  at 
each  fuelpoint.  If  a  vehicle  runs  out  of  fuel  and  no  fuelpoint  is  available,  the  vehicle  is 
assumed  to  have  a  reserve  fuel  supply  to  complete  travel  to  its  destination.  This  allows 
the  user  to  identify  links  that  may  require  an  additional  fuelpoint.  If  desired,  the  user 
could  establish  additional  fuelpoints  and  rerun  the  model.  The  user  can  input  different 
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values  to  see  the  effects  that  future  vehicles  with  better  performance  characteristics  would 
have  on  the  transportation  system. 

(2)  Reliability.  Mean  miles  between  operational  mission  failure 
(MMBF),  maintenance  manhours  per  mile  and  administrative  and  logistics  downtime  are 
listed  in  Appendix  C  for  commonly  used  vehicles.  Vehicles  are  given  an  exponentially 
distributed  mean  number  of  miles  to  breakdown  based  on  the  input  MMBF.  Upon 
breakdown,  the  vehicle  will  either  continue  to  its  destination  after  a  brief  delay  for  repair 
or  be  left  at  a  node  to  be  recovered  by  a  wrecker.  In  either  case,  the  vehicle,  upon 
return  to  a  motorpool  will  be  unavailable  until  repaired.  Once  repaired,  the  vehicle  will 
again  be  given  a  new  mean  miles  to  breakdown.  The  user  can  either  increase  or 
decrease  the  MMBF  to  see  the  impact  on  asset  availability. 

(3)  Cargo  load  dimensions.  An  asset’s  exact  cargo  load  dimensions 
of  length  in  inches  and  weight  in  pounds  are  used  if  nonseparable  cargo  is  to  be  moved. 
If  separable,  only  the  weight  capacity  of  an  asset  is  used  to  load  cargo.  Changing  this 
input  can  show  what  impact  future  vehicles  which  have  larger  or  smaller  cargo  load 
dimensions  would  have  on  transporting  cargo  within  the  transportation  system. 

b.  Link  parameters 

(1)  Distance.  Distances  are  input  in  miles.  Links  connect  2  nodes 
together.  A  node  may  be  a  unit,  fuelpoint,  supply  point,  maintenance  facility, 
motorpool,  or  any  combination. 
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(2)  Origin  and  destination.  A  specific  origin  and  destination  must  be 
established  for  each  link. 

(3)  Road  surface  and  terrain.  The  numerical  values  for  these 
parameters  are  in  the  database  of  the  model.  Each  link  must  be  distinguished  by  a 
certain  type  of  road  surface:  concrete,  bituminous  (asphalt),  gravel,  or  dirt.  A  particular 
terrain  must  also  be  chosen:  flat,  rolling  hills,  hills  with  curves,  or  mountainous. 

c.  Route  parameters 

Each  route  must  be  explicitly  stated  in  the  route  data  file.  From  origin 
to  destination,  each  node  that  makes  up  the  route  must  be  listed.  From  this  information, 
a  link  list  is  created  that  convoys  traverse  when  travelling  within  ITTSS. 

d.  Supply  parameters 

(1)  Supply  source.  A  supply  source  must  be  declared  for  each  supply 
point.  Resupplies  are  requested  and  missions  are  scheduled  to  deliver  the  supplies  from 
the  supply  source  to  the  requesting  source. 

(2)  Initial  stock  level.  The  beginning  stockage  level  for  each  supply 
item  must  be  set.  If  a  value  of  0  is  entered,  an  immediate  resupply  will  be  requested 
with  the  supply  point’s  first  checking  of  its  stock.  This  resupply  continues  until  the 
required  minimum  number  of  days  of  supply  for  each  item  is  onhand. 

(3)  Days  of  supply  on  hand.  This  parameter  is  multiplied  by  the 
unit’s  consumption  rate  to  determine  the  minimum  amount  of  a  supply  item  that  is 
required  to  be  on  hand. 
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(4)  Day  to  start/end  and  time  to  check  stock.  These  parameters 
determine  the  dates  when  a  supply  point  should  start  and  end  checking  its  supply  stocks. 
These  values  can  be  changed  to  emulate  a  supply  point  that  has  not  yet  arrived  or  one 
that  will  change  locations  sometime  later  in  the  simulation  run.  The  time  to  check  stock 
designates  the  time  every  day  the  supply  point  will  check  its  stock. 

(5)  Receiving  and  loading  points.  At  each  supply  point  object  a 
certain  number  of  receiving  and  loading  points  can  be  set.  Convoys  will  compete  for 
these  points  on  a  first  come  first  serve  basis,  or  on  priority  if  the  cargo  in  one  convoy 
has  a  higher  priority  than  cargo  in  another.  If  all  points  are  being  used,  a  convoy  will 
have  to  wait  until  a  point  becomes  clear.  The  end  result  is  that  a  supply  point  can  load 
or  unload  a  certain  number  of  convoys  at  the  same  time.  This  process  is  handled  by  the 
built-in  functions  of  the  MODSIM  n™  construct  called  ResourceObj  [Ref.  7:  p.  163]. 

(6)  Material  Handling  Equipment  (MHE ).  Each  receiving  or  loading 
point  has  a  specified  number  of  MHE  available.  MHE  unload  the  cargo  from  the  assets, 
and  determine  the  number  of  assets  that  can  be  unloaded  at  the  same  time.  MODSIM 
nT“’s  ResourceObj  is  again  utilized.  If  all  MHE  are  being  used,  the  other  assets  will 
have  to  wait  until  a  MHE  is  available. 

e.  Unit  parameters 

(1)  Unit  supply.  Units  must  have  a  supply  point  from  which  they 
draw  or  consume  supplies. 
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(2)  Daily  consumption  rate.  This  parameter  must  be  established  for 
each  supply  item  that  the  unit  consumes.  Every  24  hours,  this  rate  is  debited  from  the 
stockage  level  of  the  unit’s  supply. 

/.  Motorpool  parameters 

(1)  Assets.  All  assets  are  located  in  motorpools.  The  number  of  each 
kind  of  asset  must  be  entered.  These  assets  will  be  created  before  the  simulation  begins 
with  the  asset  characteristic  database.  Appendix  C  shows  an  example  of  the  database 
input  requirement  for  each  type  of  asset. 

(2)  Convoy  Data.  Distance  between  vehicles  and  convoys  must  be 
entered  in  feet.  A  maximum  limit  for  the  number  of  vehicles  in  a  convoy  can  be  set. 
Input  for  break  miles  and  time  can  also  be  specified.  During  its  travel,  if  a  convoy  has 
travelled  over  a  certain  number  of  miles,  it  will  conduct  a  break  at  the  next  node.  Inputs 
for  standown  miles  and  time  can  also  be  specified  for  convoys.  Before  its  departure 
from  its  destination  or  upon  its  arrival  on  its  return  trip  home,  the  convoy  will  standown 
for  the  specified  amount  of  time.  During  Operation  Desert  Storm,  a  full  day  standown 
time  was  established  for  travel  over  the  long  routes  because  of  the  desert  climate,  long 
distance  of  the  routes,  and  having  only  one  operator  available  per  vehicle. 

The  last  parameters  for  convoys  indicate  whether  maintenance 
contact  teams  are  available  and  how  long  it  takes  to  temporarily  fix  vehicles.  The  first 
input  is  a  boolean  value.  If  contact  teams  are  available  for  travel  with  convoys,  vehicles 
can  be  temporarily  fixed  by  these  teams  and  continue  to  their  destinations.  The 
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temporary  fix  time  is  the  time  required  to  repair  each  non-mission  capable  vehicle.  Upon 
returning  home,  these  vehicles  will  be  entered  into  the  maintenance  facility  and  repaired. 
Otherwise,  if  contact  teams  are  not  available  and  a  vehicle  is  found  non-mission  capable 
while  travelling,  the  vehicle  is  left  at  the  nearest  node.  The  vehicle  will  be  recovered 
by  a  wrecker  and  taken  to  either  the  destination  node’s  maintenance  facility  or  the 
vehicle’s  home  maintenance  facility,  whichever  is  closest.  Any  cargo  on  the  vehicle  will 
be  off-loaded  either  at  the  destination  node’s  receiving  point  or  at  the  vehicle’s  home 
motorpool  and  rescheduled  for  another  mission. 

g.  Maintenance  parameters 

(1)  Maintenance  manhours  per  mile.  This  rate  is  multiplied  by  the 
number  of  miles  a  vehicle  has  travelled  since  its  last  breakdown.  The  resulting  time  is 
the  length  of  time  it  takes  to  repair  the  vehicle  in  the  maintenance  facility. 

(2)  Administrative  and  logistics  downtime.  This  is  a  flat  rate  that 
determines  how  long  an  asset  remains  non-mission  capable  excluding  the  maintenance 
manhours.  This  includes  recovery  time,  waiting  for  parts,  tools  and  anything  else  not 
included  within  the  maintenance  manhours. 

h.  Fuelpoint  parameters 

(1)  Starting  level.  Although  a  starting  level  can  be  given  to  each 
fuelpoint,  currently  there  is  no  effect  in  the  model  if  this  amount  is  exceeded.  However, 
ITTSS  does  keep  track  of  total  fuel  consumption  for  each  fuelpoint  so  that  the  user  can 
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estimate  how  much  fuel  is  required  at  each  fuel  point.  Future  embellishments  of  the 
model  could  include  the  effects  of  running  out  of  fuel. 

(2)  Number  of  numps.  This  parameter  determines  how  many  assets 
can  be  refueled  at  the  same  time.  Simulation  time  elapses  during  refueling  and  while 
assets  wait  for  pumps  to  become  free. 

(3)  Refueling  time.  The  time  required  for  the  refueling  of  an  asset 

is  input  here. 

D.  REPORTS 

Four  reports  are  currently  available  after  each  simulation  run  of  ITTSS.  Additional 
reports  could  be  created  for  specific  scenarios  and  easily  implemented  within  the  model’s 
code.  Examples  of  these  reports  are  listed  in  Appendix  B. 

1.  Dispatch  Report 

All  convoy  activity  is  listed  within  this  report.  A  convoy  is  designated  by  its 
origin  and  time  of  departure.  The  time  when  a  convoy  leaves  its  origin,  arrives  at  its 
destination  and  ultimately  returns  home  is  recorded  in  the  Dispatch  Report.  The  number 
of  assets  within  the  convoy,  and  the  number  that  broke  down  during  the  mission  and 
were  temporarily  repad  red  and  remained  with  the  convoy  are  also  listed  with  each 
reference  of  convoy  movement. 

2.  Supply  Report 

Every  24  hours,  a  supply  report  is  generated  showing  the  current  stockage 
levels  of  all  supply  items  within  the  inventory  of  each  supply  point.  These  include 
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classes  of  supply  and  nonseparable  items  such  as  tanks  and  infantry  fighting  vehicles  that 
may  have  been  relocated  to  the  supply  point’s  location. 

3.  Vehicle  Status 

A  vehicle  status  report  is  generated  every  24  hours  showing  the  number  of 
assets  available  and  deadlined  at  each  motorpool.  Availability  and  utilization  rates  are 
calculated  for  the  24  hour  period  of  the  report.  A  report  for  each  different  type  of  asset 
located  within  the  motorpool  is  included  in  the  daily  vehicle  status  report. 

4.  Maintenance  Activities 

All  pertinent  maintenance  activities  are  listed  within  this  report.  The  actual 
time  an  asset  breaks  down  is  reported  to  the  asset’s  home  maintenance  facility  and 
recorded  in  this  report.  The  times  that  a  maintenance  facility  receives  a  deadlined  asset 
and  completes  its  repair  is  also  listed  in  this  report. 

E.  SIMULATION  MODEL 

1.  MODSIM  IP* 

ITTSS  was  written  entirely  on  a  personal  computer  (486DX,  25mhz),  using 
the  OS/2  operating  system.  The  model  is  a  stand  alone  simulation  that  requires  only  the 
model  code,  MODSIM  H™,  Microsoft  C,  OS/2  1.2  and  database  files.  ITTSS  consists 
of  a  total  of  54  definition  and  implementation  modules  and  one  main  module  which  can 
be  found  in  Appendix  D.  At  present  the  only  interactive  feature  available  is  for  the 
choice  of  running  a  complete  simulation  or  just  scheduled  missions.  Changes  to 
parameters  must  be  made  in  the  database  files.  This  chapter  contains  a  description  of 
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events  that  drive  ITTSS  and  actions  that  objects  in  the  model  perform.  Because  ITTSS 
is  an  object-oriented  model,  the  actions  that  are  described  are  the  actual  methods  that 
are  defined  for  the  objects.  When  a  motorpool  schedules  missions,  a  convoy  travels,  or 
an  asset  refuels,  they  all  refer  to  objects  that  actually  have  these  methods  written  for 
them.  Much  of  the  computer  code  for  this  model,  listed  in  Appendix  D,  is  much  more 
readable  than  traditional  computer  languages  like  FORTRAN  or  PASCAL.  Current 
transportation  doctrine  was  followed  as  much  as  possible  in  the  development  of  the 
actions  that  objects  in  ITTSS  perform  while  allowing  flexibility  for  a  variety  of  future 
scenarios. 

2.  Event  Driven 

Two  types  of  events  drive  the  simulation  model.  The  first  event  type  is 
driven  by  the  daily  operations  of  units  consuming  supplies  and  supply  points  checking 
their  stock  for  shortages.  Missions  are  scheduled  based  on  these  shortages  and  assets 
travel  to  fill  mission  requirements.  The  second  event  type  occurs  when  the  user 
schedules  missions  to  move  cargo  from  one  location  to  another.  Either  event  can  be  run 
separately  or  together.  The  advantages  in  having  this  option  is  that  the  user  can  compare 
the  performance  of  vehicles  moving  cargo  from  one  location  to  another  with  or  without 
the  interference  of  other  vehicles  within  the  transportation  system. 
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a.  Daily  Operations 


(1)  Unit  consumption.  Each  unit  has  a  supply  object  (point)  from 
which  supplies  are  consumed.  A  unit  has  a  daily  consumption  rate  for  each  supply  item. 
At  a  specified  time,  the  unit  consumes  the  amount  and  thereby  decreases  the  inventory 
of  its  supply.  The  default  time  is  the  end  of  each  day.  Inputs  for  the  dates  when  the 
units  are  to  begin  and  end  the  daily  consumption  of  their  supplies  enable  the  user  to 
simulate  units  entering  or  leaving  the  theater  of  operations  at  different  times. 

(2)  Checking  stock.  Each  supply  object  checks  its  inventory  at  a 
specified  time  each  day.  If  stock  levels  fall  below  a  particular  level,  the  object  sends  a 
request  list  to  its  supply  source  for  a  resupply.  The  supply  source,  in  turn,  checks  its 
own  inventory.  If  items  on  the  request  list  cannot  be  filled,  the  supply  source  will  ask 
for  a  resupply  from  its  higher  supply  source.  Any  items  on  the  request  list  that  are 
onhand  are  immediately  scheduled  by  the  supply  source’s  motorpool  to  be  delivered  to 
the  requesting  supply  object.  Any  items  that  are  not  onhand  will  be  delivered  when  the 
supply  source  receives  its  resupply  from  its  higher  supply  source. 

b.  Scheduled  Missions 

In  addition  to  supply  missions  that  are  scheduled  within  the  simulation 
to  fill  a  resupply  request,  missions  can  be  scheduled  by  the  user  to  occur  at  any  time 
during  the  simulation  run.  An  example  of  a  user-scheduled  mission  is  a  one-time  lift  of 
a  heavy  maneuver  force  or  just  the  relocation  of  a  few  tanks.  User-scheduled  missions 
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can  occur  by  themselves  without  interference  of  other  supply/transportation  actions  or  in 
conjunction  with  them. 

3.  Conducting  Missions 

Whenever  a  mission  is  scheduled,  either  through  a  resupply  request  or  for  a 
specified  movement  of  cargo,  certain  actions  occur  that  drive  the  simulation.  Cargo  must 
be  loaded  upon  the  appropriate  assets,  assets  must  be  placed  in  convoys,  and  convoys 
must  travel  to  a  destination,  perform  their  business  and  return  home  to  complete  the 
mission.  The  following  sections  describe  in  detail  the  actions  within  these  operations  and 
the  purpose  for  the  many  parameters  and  inputs  available  in  the  model. 

a.  Loading  cargo  on  assets 

Once  a  mission  is  scheduled,  a  cargo  list  is  sent  to  the  appropriate 
motoipool.  The  motoipool  takes  each  item  off  the  list  and  matches  it  to  an  available 
asset  within  its  asset  list  through  a  standard  sorting  algorithm  that  insures  the  best  fit 
using  the  available  assets.  If  the  item  is  separable,  it  can  be  broken  down  into  smaller 
pieces  and  just  the  weight  is  used  to  match  cargo  to  the  asset.  If  the  cargo  is 
nonseparable,  both  length  and  weight  are  used  to  find  the  best  fitting  asset  to  carry  the 
cargo.  The  smallest  asset  that  can  carry  the  cargo  is  always  chosen.  If  the  cargo  is  too 
large  for  any  available  asset,  it  is  separated  if  possible.  The  user  must  insure  that  there 
is  an  asset  available  in  the  motoipool  that  can  transport  any  nonseparable  item  in  the 
transportation  system.  Any  cargo  that  is  not  matched  to  an  asset  is  placed  in  a  waiting- 
to-be-loaded  queue.  This  queue  is  checked  by  all  returning  assets.  The  motoipool  then 
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conducts  the  loading  of  cargo  onto  assets  based  on  loading  point  availability  and  MHE 
availability.  Loading  may  be  delayed  if  these  points  are  busy  with  the  loading  of  other 
convoys.  Once  loading  has  begun  on  a  convoy,  the  number  of  MHE  available  at  the 
supply  point  will  determine  how  many  assets  can  be  loaded  at  the  same  time. 

b.  Convoy  Organization 

All  loaded  assets  are  organized  by  convoy.  Convoys  have  a  user- 
defined  maximum  number,  distance  between  assets  and  distance  between  other  convoys. 
All  assets  are  refueled  before  traveling  and  a  determination  is  made  whether  or  not  all 
assets  can  make  it  to  their  destination  and  back  without  refueling.  If  they  can,  then  the 
convoy  will  not  stop  for  any  fuel  throughout  the  mission.  The  user  can  define  whether 
or  not  a  maintenance  contact  team/ wrecker  is  available  to  travel  with  the  convoy.  If  a 
contact  team  is  available,  vehicles  that  breakdown  during  the  mission  are  temporarily 
repaired  until  they  return  home.  Upon  return  they  are  entered  into  their  maintenance 
facility  for  repairs.  If  wreckers  are  not  available,  vehicles  that  breakdown  during  the 
missis  a  are  left  at  a  node  and  a  wrecker  from  either  the  home  or  destination  point, 
whichever  is  closer,  will  recover  the  asset  and  tow  it  to  the  maintenance  facility.  Cargo 
will  either  be  unloaded  at  the  destination’s  supply  point  or  at  the  origin’s  motorpool 
where  another  mission  will  be  scheduled.  When  a  convoy  is  ready  for  travel,  it  is 
released  after  the  appropriate  distance  between  it  and  the  previous  convoy  has  been 
cleared. 
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c.  Traveling 

Convoys  travel  along  a  route  that  contains  a  list  of  links.  The  speed 
of  the  slowest  asset  in  the  convoy  is  used  to  determine  the  time  it  takes  to  travel  across 
the  link.  Vehicles  can  reach  their  miles  between  failure  during  this  time,  but  will  not 
become  non-mission  capable  until  they  reach  the  next  node.  Miles  driven  and  fuel 
consumed  are  debited  after  the  convoy  enters  a  node. 

(1)  Entering  a  node.  At  the  end  of  each  link  are  nodes  that  may 
contain  supply,  motoipool,  maintenance  or  fuelpoint  objects.  Upon  arrival  at  the  node, 
the  convoy  will  determine  whether  or  not  the  node  is  its  destination  for  a  resupply 
mission,  recovery  of  vehicles,  or  for  the  return  of  a  repaired  vehicle  by  another 
maintenance  facility. 

If  the  vehicles  carry  cargo  and  it  is  at  its  destination  node,  the 
convoy  will  enter  the  node’s  supply  point.  Unloading  of  the  cargo  is  similar  to  loading 
except  convoys  that  carry  higher  priority  cargo  are  be  offloaded  first  by  the  available 
receiving  points  and  MHE.  If  the  vehicles  in  the  convoy  are  wreckers,  any  broken-down 
vehicles  that  are  at  the  node  will  be  recovered  and  carried  back  to  a  maintenance  facility. 
If  the  convoy  contains  repaired  vehicles,  these  vehicles  will  be  returned  to  their 
motoipools. 

Regardless  of  whether  or  not  the  node  is  a  destination  node,  all 
vehicles  update  their  odometers  and  fuel  gauges,  check  for  breakdowns  and  refuel  if 
necessary.  Delays  occur  if  the  convoy  refuels,  temporarily  fixes  a  vehicle,  or  conducts 
business  within  a  destination  node.  Before  departure  from  the  node,  the  convoy  checks 
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if  its  miles  travelled  is  greater  than  its  maximum  allowable  miles  before  a  break  is 
required.  If  the  miles  travelled  exceed  this  limit,  the  convoy  breaks  for  the  required 
time.  If  the  convoy  is  at  a  destination  node  and  is  about  to  return  to  its  home  motorpool, 
a  standown  time  will  delay  the  convoy  the  appropriate  length  of  time. 

After  these  checks,  the  convoy  must  receive  clearance  before 
passing  through  the  node.  Only  one  clearance  is  available  at  a  time.  If  more  than  one 
convoy  is  at  the  node,  the  first  one  that  arrived  will  be  allowed  to  proceed.  Once  the 
appropriate  distance  between  convoys  has  been  reached,  the  next  convoy  will  be  allowed 
to  continue  its  travel.  Unless  a  convoy  has  a  user-specified  higher  priority,  convoys  are 
released  to  travel  by  the  order  they  arrive  when  they  request  clearance. 

(2)  Returning  Home.  Convoys  return  to  their  home  motorpool  along 
a  return  route  of  links.  The  same  actions  of  updating  gauges  and  checking  for  refueling 
and  breakdowns  are  performed  at  each  node  they  cross.  Upon  return  to  their  home 
node,  preventative  maintenance  is  performed  on  each  vehicle  in  the  form  of  checking  for 
breakdowns  and  refuelling.  Any  vehicles  that  are  non-mission  capable  are  entered  into 
the  maintenance  facility  for  repair.  A  standown  time  may  be  necessary  if  the  convoy  has 
travelled  farther  than  the  allowable  mileage.  Once  these  actions  have  been  conducted, 
cargo  that  is  waiting  to  be  loaded  is  checked.  If  the  vehicles  can  carry  the  cargo,  another 
mission  is  conducted.  If  there  is  no  match  or  no  more  cargo  to  haul,  the  vehicles  are 
finally  returned  to  their  motorpool  until  another  mission  is  scheduled. 
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rv.  MODEL  DEMONSTRATION  EXAMPLE 


A.  INTRODUCTION 

This  chapter  presents  a  demonstration  of  ITTSS’s  capability  to  estimate  the  time 
required  to  move  cargo  from  one  location  to  another.  This  demonstration  compares  the 
new  doctrine  of  relocating  a  heavy  maneuver  force  in  a  single  lift  using  the  new  HETs 
with  the  old  doctrine  using  the  actual  vehicles  available  in  Operation  Desert  Storm. 
During  the  war,  HETs  were  so  critical  that  they  were  "intensively  managed  at  the 
General  officer  level  on  a  daily  basis,  and  during  critical  periods  on  an  hourly  basis" 
[Ref.  3:  p.  2].  What  is  of  interest  is  the  comparison  of  the  expected  travel  time  for  the 
two  doctrines. 

B.  SCENARIO 

The  single  lift  of  a  HMF  in  the  Operation  Desert  Storm  scenario  is  used  to  show 
how  the  measure  of  performance,  time  required  to  move  the  HMF  from  one  location  to 
another,  can  be  estimated  from  ITTSS.  From  ITTSS’s  output,  data  can  be  obtained  to 
perform  a  paired-sample  test  to  show  how  much  better  the  new  doctrine  is  compared  to 
the  old  doctrine.  Table  2  shows  a  typical  brigade  size  heavy  maneuver  force  (HMF)  that 
could  be  expected  to  be  moved  by  the  new  transportation  corps  HET  doctrine. 

ITTSS  runs  will  be  made  using  the  same  northern  route  that  was  actually  used  to 
move  the  tracked  vehicles  during  Operation  Desert  Storm.  The  origin  will  be  Dammam 
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and  the  destination  will  be  King  Khalid  Military  City  (KKMC).  See  Figure  3.  Only  the 
new  70  ton  HETs  will  be  used  for  runs  involving  the  new  doctrine,  since  they  are  the 
only  HETs  considered  in  the  new  single-lift  concept  [Ref.  4:  p.  41].  In  Operation  Desert 
Storm,  the  Army  did  not  have  any  of  the  new  70  ton  HETs  to  move  the  larger  tracked 
vehicles  like  the  M-l.  HETs  had  to  be  contracted  from  other  countries  to  fill  this  void 
[Ref.  3:  p.  2].  These  contracted  HETs  and  the  Army’s  60  ton  HETs  are  used  in  runs 
involving  the  old  doctrine. 


TABLE  2.  TYPICAL  HEAVY  MANEUVER  FORCE. 


TRACKED  VEHICLE  TYPE 

Ml  Abrams,  Main  Battle  Tank 

116 

M2  Bradley,  Infantry  Fighting  Vehicle 

64 

M3  Bradley,  Cavalry  Fighting  Vehicle 

18 

M106  107mm  Self  Propelled  Motor  * 

6 

M109  155mm  Self  Propelled  Howitzer 

24 

Ml  13  Armored  Personnel  Carrier  (APC) 

118 

M548  Cargo  Carrier  * 

30 

M578  Armored  Recovery  Vehicle 

3 

M577  Armored  Command  Vehicle  * 

29 

M901  Improved  TOW  Vehicle  * 

12 

ACE  Armored  Combat  Earthmover 

27 

A  VLB  Mechanized  Bridge 

12 

CEV  Combat  Engineer  Vehicle 

6 

HST-V  Fire  Support  Team  Vehicle  * 

16 

*  very  similar  to  the  Ml  13,  APC 

505  Total  Tracks 
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Figure  3.  Routes  During  Operation  Desert  Storm 


The  significant  model  parameters  for  both  runs  are  listed  in  Table  3.  Appendix  C 
contains  the  actual  data  files  that  were  used  for  both  runs.  The  result  of  these  runs  will 
provide  point  estimates  for  the  travel  time  from  Dammam  to  KKMC  for  each  doctrine. 
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TABLE  3.  MODEL  PARAMETERS 


PARAMETER 

VALUE 

Maximum  Number  in  Convoy 

25 

Distance  Between  Convoys 

3000  feet 

Distance  Between  Vehicles 

350  feet 

Maintenance  Contact  Teams 

Available 

Temporary  Fix  Time 

15  min 

Break  Distance/Time 

90  miles  /  30  min 

Standown  Distance/Time 

200  miles  /  1  hr 

Supply  Load/Unload  Time 

15  min  /  15  min 

Supply  Loading  Points 

2 

Supply  Receiving  Points 

2 

Material  Handling  Equipment 

5 

New  Doctrine: 

HET  70  Ton 

385  total 

MMBF 

2500  miles 

Maint  Manhours  Per  Mile 

.005 

Admin  and  Log  Downtime 

34  hrs 

Old  Doctrine: 

HET  60  Ton 

160  total 

MMBF 

1600 

Maint  Manhours  Per  Mile 

.009 

Admin  and  Log  Downtime 

34  hrs 

Contracted  HET,  70  Ton 

120  total 

MMBF 

1600 

Maint  Mauhours  Per  Mile 

.009 

Admin  and  Log  Downtime 

34  hrs 

No  data  is  available  for  the  contracted  HETs.  An  assumption  is  made  that  they 


have  the  same  performance  capabilities  as  the  current  60  Ton  HETs  of  the  Army,  except 


they  can  carry  heavy  loads  that  the  60  Ton  HETs  cannot. 
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C.  SIMULATION  RUNS 


100  runs  each  were  made  using  the  new  and  old  doctrines.  The  variance-reduction 

technique  of  common  random  numbers  was  used  in  setting  up  the  simulation  runs. 

Variance  reduction  techniques  can  increase  the  model’s  efficiency  by  reducing  the 

variance  of  the  estimated  travel  times  without  disturbing  its  expectation,  and  also  produce 

smaller  confidence  intervals  for  the  difference  between  the  two  doctrines.  Common 

random  numbers  are  used  when  comparing  two  alternative  system  configurations. 

We  want  to  compare  the  alternative  configurations  [the  2  doctrines]  "under  similar 
experimental  conditions"  so  that  we  can  be  more  confident  that  any  observed 
differences  in  performance  are  due  to  differences  in  the  system  configurations 
rather  than  to  fluctuations  of  the  "experimental  conditions".  In  simulation,  these 
"experimental  conditions"  are  the  generated  random  variates  that  are  used  to  drive 
the  models  through  simulated  time.  [Ref.  10:  pp.  612-613] 

All  initial  conditions  were  identical.  100  random  number  seeds  were  used  to  generate 

a  separate  stream  of  500  random  numbers  that  were  used  for  each  individual  simulation 

run.  These  streams  were  created  by  MODSIM  n™’s  random  number  generator  which 

is  a  multiplicative  congruential  pseudo-random  number  generator  [Ref.  9:  p.  160].  The 

generator  allowed  the  exact  random  number  stream  used  in  each  simulation  run  of  the 

new  doctrine  to  be  used  in  the  corresponding  run  of  the  old  doctrine.  Every  vehicle 

received  the  same  MMBF  input  in  each  corresponding  run.  This  parameter  was  used  to 

produce  each  vehicle’s  miles  to  failure  from  an  exponential  distribution.  This  enabled 

as  much  matching  up  of  random  numbers  across  the  different  doctrines  on  a  particular 

replication  as  possible.  The  first  280  vehicles  in  each  set  of  simulation  runs  received  the 

same  random  numbers  to  determine  their  miles  before  failure. 
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A  single  simulation  run  took  approximately  4  minutes  of  computer  time.  The  only 
change  in  the  input  to  the  simulation  during  each  run  was  the  random  number  stream. 
Because  initial  starting  conditions  were  identical  for  each  run,  the  same  number  of 
vehicles  were  loaded.  The  departure  time  of  the  first  convoy  was  also  constant  in  every 
one  of  the  simulation  runs.  The  expected  travel  time  was  determined  by  when  the  first 
convoy  of  HETs  left  Dammam  and  the  last  one  arrived  at  KKMC.  Because  of  delays 
in  having  to  temporarily  fix  HETs  that  break  down,  and  in  waiting  for  clearance  to 
travel,  a  convoy  that  left  first  did  not  necessarily  arrive  first. 

D.  SIMULATION  RESULTS 

Because  cf  the  terminating  nature  of  the  simulation  runs  (one  mission  to  move 
cargo  from  Dammam  to  KKMC),  no  steady  state  analysis  was  necessary.  Each  run  was 
independent,  terminated  by  the  arrival  of  the  last  convoy  at  KKMC  and  begun  again  with 
identical  initial  conditions. 

1.  Data  Analysis 

Three  sets  of  data  were  obtained  from  the  200  total  simulation  runs 
(Appendix  A).  A  travel  time  from  Dammam  to  KKMC  was  obtained  for  each  run  using 
the  new  and  the  old  doctrines.  The  difference  between  the  times  was  calculated  for  each 
run.  These  will  be  used  in  paired-sample  analysis.  X-Y  plots  in  Figure  4  shows  the  data 
taken  from  the  model’s  output.  The  top  plot  displays  the  old  doctrine  travel  times. 
Below  it  are  the  paired-differences  between  the  doctrines.  The  bottom  plot  shows  the 
travel  times  using  the  new  doctrine. 


36 


Figure  4.  Data  from  the  200  Runs 


2.  Paired-Samples  Statistics 

The  following  statistics  were  used  in  finding  point  estimates,  where  X,  is  the 


performance  of  old  doctrine  in  the  it h  simulation  run  [Ref.  10:  pp.  532-533]. 


Sample  Mean: 


EXt 


n 


Variance: 


E  [XrX(n)]2 
S2(n)=— - : - 
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The  sample  mean  and  variance  for  Yt,  the  performance  of  the  new  doctrine  in  the  ith 
simulation  run  are  found  similarly . 


The  100  independent  replications  of  the  simulation  resulted  in  each  of  the  data 
points,  X,  and  Y„  being  independent  and  identically  distributed  random  variables. 
Therefore,  the  sample  mean  is  an  unbiased  point  estimator  for  the  travel  time.  [Ref.  10: 
p.  532]  The  formulas  used  in  determining  the  estimate  of  the  expected  difference 
between  the  doctrines  are  listed  below  [Ref.  12:  p.  49]. 

Estimate  of  the  expected  difference  in  performance: 

DrXi-Yi , 


Confidence  interval  for  the  expected  difference: 

5  ±  kA 


4oo 


N  ■ 


,  where  k  is  the  t-statistic 


Variance  of  the  expected  difference: 

Var[DJ  =  Var[X,]  +  Var[YJ  -  2Cov[X(,T] 

The  t-distribution  was  used  to  estimate  a  95  %  confidence  interval  with  a  = 
.05.  With  95%  confidence,  the  estimates  for  travel  time  and  availability  will  be  within 
this  interval.  A  t-value  of  1.96  was  used  for  v  (v=n-l,  the  degrees  of  freedom) 
equalling  99  [Ref.  11:  p.  20].  Table  4  summarizes  the  results  for  point  estimates, 
variances,  and  confidence  intervals  for  both  doctrines. 
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TABLE  4.  SIMULATION  RUN  STATISTICS. 


_ NEW  DOCTRINE  (70  Ton  HETs) 

Estimate  of  Travel  Time  =  14.5916  hours 
Variance  =  .073918 


OLD  DOCTRINE  (Old  and  Contracted  HETs) 

Estimate  of  Travel  Time  =  69.6946  hours 
Variance  =  3.09445 


_ PAIRED  SAMPLE  STATISTICS 

Estimate  of  Difference  Between  Doctrines,  D  =  55.103 

Variance  =  3.04108 

Covariance  =  .06365 

Correlation  Coefficient  =  .1331 

Confidence  Interval  =  [55.685,58.520] 


3.  Simulation  Run  Results 

The  travel  time  estimators  in  Table  4  seem  reasonable  for  heavy  equipment 
transporters  travelling  routes  of  over  300  miles.  The  estimate  of  difference  between  the 
doctrines  is  just  over  55  hours.  Applying  the  95  %  confidence  interval,  we  can  be  95  % 
confident  that  the  true  difference  is  between  51.685  and  58.520.  The  use  of  the  paired- 
sample  approach  and  common  random  numbers  did  reduce  the  variance.  Using  common 
random  numbers  can  positively  correlate  estimators  and  increase  the  covariance  between 
them  which  reduces,  the  variance  of  the  estimate  of  the  difference  between  them. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  SUMMARY  AND  CONCLUSIONS 

There  are  no  simulation  models  currently  available  that  treat  transportation  assets 
as  individual  objects  and  examine  the  variability  in  the  reliability  of  assets.  ITTSS  fills 
this  modelling  void  by  providing  the  capabilities  to  focus  on  the  performance  and 
reliability  characteristics  of  transportation  assets.  Many  large  combat  models  aggregate 
transportation  assets  and  therefore  make  it  impossible  to  analyze  the  individual 
performance  of  these  assets.  Still  other  models,  like  the  Distribution  System  Analyzer 
(DSA),  provide  a  very  detailed  modelling  of  the  supply  and  transportation  system,  but 
intensive  knowledge  of  the  supply  system  is  essential  in  setting  up  each  scenario.  DSA 
provides  a  good  analysis  of  the  movement  of  supply  items  within  the  supply  system,  but 
does  not  allow  us  to  focus  on  transportation  assets  like  ITTSS.  ITTSS  gives  the  user  an 
option  to  model  an  entire  transportation  system  and/or  to  schedule  movements  of  cargo. 
Being  an  object-oriented  simulation  model,  ITTSS  allows  individual  monitoring  of  assets 
throughout  the  simulation  run  and  flexibility  to  easily  add  other  types  of  assets. 

The  results  produced  by  ITTSS  from  the  model  demonstration  problem  are  very 
reasonable.  The  travel  times  of  14.5  and  69.7  hours  are  reasonable  time  estimates  for 
HETs  traveling  in  convoy  over  routes  greater  than  300  miles,  given  the  doctrines  that 
were  followed. 
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UTSS  allows  the  user  to  focus  on  transportation  assets’  performance  and  reliability 
characteristics  and  can  easily  be  modified  or  augmented  to  fit  a  wide  range  of  future 
scenarios  or  doctrinal  changes  without  significant  computer  code  changes. 

B.  RECOMMENDED  FUTURE  ENHANCEMENTS 

The  following  enhancements  for  ITTSS  are  recommended  for  future  development 
and  are  currently  being  pursued  by  the  author. 

1.  User-Friendly  Menu 

A  user-friendly,  menu-driven  input  capability  will  simplify  data  entry. 
Currently  all  data  must  be  entered  through  data  files.  The  graphic  capabilities  of 
SIMGRAPHICS®  can  be  integrated  with  ITTSS  MODSIM  H™  code  to  provide  a  more 
foolproof  and  error  free  method  of  entering  and  changing  parameters. 

2.  Other  Types  of  Assets 

Other  types  of  assets  could  be  defined  within  the  transportation  system. 
Aircraft,  especially  helicopters,  are  an  integral  part  of  an  intra-theater  transportation 
system.  To  take  advantage  of  existing  rail  systems  and  inland  waterways,  train  and 
vessel  objects  could  also  be  introduced. 

3.  Separation  of  Tractors  and  Trailers 

While  the  assumption  of  aggregating  tractors  and  trailers  was  made  for  this 
model,  a  future  enhancement  to  the  model  would  be  to  separate  them.  This  would  enable 
trailer  transfer  point  operations  to  be  accurately  modelled.  Army  doctrine  might 
advocate  the  shuttling  of  trailers  from  one  location  to  another  by  tractors  that  are 
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dedicated  to  a  segment  of  the  route.  The  trailers  would  then  be  shuttled  by  another 
group  of  tractors  dedicated  to  the  next  segment  in  the  route. 

4.  Containers 

Containers  could  also  be  introduced  to  take  advantage  of  nTSS’s  object- 
oriented  view.  During  Desert  Storm,  thousands  of  containers  were  within  the  theater  of 
operations  and  the  managing  of  these  assets  was  overwhelming.  Future  conflicts  will 
most  certainly  involve  a  great  number  containers  to  move  unit  equipment  and  classes  of 
supply. 

5.  Combat  Losses 

Random  ambushes  or  air  attacks  that  impact  on  the  performance  of  assets  and 
the  movement  o.  cargo  and  that  partially  or  fully  disable  a  link  or  node  could  be 
introduced  into  ITT SS. 
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APPENDIX  A  -  DATA  FROM  EXAMPLE  PROBLEM 


Table  5.  Data  from  Simulation  Runs. 


RUN 

« 

i 

TRAVEL  TIME 
Old  Doctrine 
% 

TRAVEL  TIME 
New  Doctrine 

Yi 

DIFFERENCE 

XrYr 

1 

69.17737 

14.53439 

54.64299 

2 

69.50056 

14.42781 

55.07275 

3 

73.55607 

14.63 

58.92607 

4 

69.92296 

14.53439 

55.38858 

5 

69.22592 

14.59315 

54.63276 

6 

74.36455 

15.1061 

59.25845 

7 

68.99762 

14.45171 

54.5459 

8 

69.57631 

14.21267 

55.36364 

9 

69.18399 

14.46267 

54.72132 

10 

68.69243 

14.53439 

54.15805 

11 

69.96341 

14.43877 

55.52464 

12 

73.58925 

14.38 

59.20925 

13 

69.19834 

14.68877 

54.50957 

14 

68.9553 

14.26048 

54.69482 

15 

68.95422 

14.42781 

54.52641 

16 

67.17443 

14.38 

52.79443 

17 

68.70383 

14.55829 

54.14554 

18 

69.7546 

14.41487 

55.33974 

19 

69.5324 

14.88 

54.65239 

20 

69.49688 

14.67781 

54.81907 

21 

69.22592 

14.53439 

54.69153 
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RUN 

i 

' 

TRAVEL  TIME 
Old  Doctrine 

Xi 

TRAVEL  TIME 
New  Doctrine 

DIFFERENCE 

XrYi 

22 

68.74909 

14.59315 

54.15593 

23 

68.73362 

15.28439 

53.44923 

24 

69.57595 

14.30829 

55.26766 

25 

69.71744 

14.80829 

54.90915 

26 

68.73511 

14.14295 

54.59216 

27 

74.31042 

14.45171 

59.85871 

28 

69.72626 

14.62999 

55.09627 

29 

74.07509 

14.92781 

59.14728 

30 

68.42149 

14.45171 

53.96978 

31 

70.22739 

14.30829 

55.9191 

32 

70.03109 

14.70171 

55.32937 

33 

69.44243 

14.89096 

54.55147 

34 

70.18581 

14.58219 

55.60362 

35 

74.78137 

14.58219 

60.19918 

36 

69.04616 

14.45171 

54.59444 

37 

68.45201 

14.40391 

54.04811 

38 

68.76194 

14.30829 

54.45365 

39 

68.7318 

14.92781 

53.80399 

40 

69.00276 

15.33219 

53.67057 

41 

70.00754 

14.93877 

55.06878 

42 

68.04894 

14.53439 

53.51456 

43 

68.4259 

15.05829 

53.36761 

44 

73.78509 

14.70171 

59.08338 

45 

73.01715 

14.30829 

58.70886 

46 

68.78513 

14.63 

54.15512 

46 


RUN 

j 

TRAVEL  TIME 
Old  Doctrine 

Xi 

TRAVEL  TIME 
New  Doctrine 

DIFFERENCE 

X,~Yi 

47 

68.43399 

14.45171 

53.98228 

48 

69.00056 

14.70171 

54.29884 

49 

68.49541 

14.24952 

54.24589 

50 

68.92002 

14.3561 

54.56392 

51 

68.79616 

14.58219 

54.21396 

52 

68.44832 

15.14096 

53.30735 

53 

68.47663 

15.01048 

53.46615 

54 

68.75203 

14.42781 

54.32422 

55 

68.76267 

14.73658 

54.0261 

56 

69.46709 

14.65391 

54.81319 

57 

73.58523 

14.41487 

59.17037 

58 

67.49467 

14.83219 

52.66248 

59 

68.91928 

14.43877 

54.48051 

60 

68.72739 

14.73658 

53.99081 

61 

68.54616 

14.23658 

54.30958 

62 

73.31427 

15.15391 

58.16036 

63 

69.20422 

14.03439 

55.16984 

64 

69.00203 

15.17781 

53.82422 

65 

69.75975 

15.15391 

54.60585 

66 

69.98364 

14.76048 

55.22316 

67 

68.68179 

14.70171 

53.98007 

68 

69.48141 

14.8322 

54.64921 

69 

68.45199 

14.71267 

53.73932 

70 

68.27299 

14.30829 

53.9647 

71 

67.75679 

14.53439 

53.2224 

RUN 

i 

TRAVEL  TIME 
Old  Doctrine 

Xi 

TRAVEL  TIME 
New  Doctrine 

DIFFERENCE 

72 

69.29248 

14.83219 

54.46029 

73 

69.00497 

14.49952 

54.50545 

74 

68.96523 

14.48658 

54.47865 

75 

69.94539 

14.42781 

55.51758 

76 

70.17848 

14.76048 

55.418 

77 

69.67664 

14.92781 

54.74883 

78 

72.81427 

14.67781 

58.13646 

79 

69.19243 

14.78439 

54.40805 

80 

69.71709 

14.78439 

54.93271 

81 

69.23546 

14.51048 

54.72498 

82 

68.94464 

14.11706 

54.82758 

83 

73.28515 

14.58219 

58.70296 

84 

67.22075 

14.55829 

52.66246 

85 

69.45348 

14.40391 

55.04958 

86 

67.77005 

14.68877 

53.08128 

87 

69.0204 

14.45171 

54.56868 

88 

69.47592 

14.43877 

55.03715 

89 

69.72702 

14.58219 

55.14483 

90 

74.58108 

15.1061 

59.47498 

91 

69.0605 

14.08219 

54.97831 

92 

69.46376 

14.23658 

55.22718 

93 

68.7296 

14.3561 

54.3735 

94 

73.29292 

14.28439 

59.00853 

95 

69.25423 

14.53439 

54.71985 

96 

69.28069 

14.41487 

54.86583 

48 


RUN 

■  * 

i 

TRAVEL  TIME 
Old  Doctrine 

Xi 

TRAVEL  TIME 
New  Doctrine 

Yi 

DIFFERENCE 

XrYt 

97 

68.69611 

14.40391 

54.2922 

98 

68.26343 

14.68877 

53.57466 

99 

69.49247 

14.40391 

55.08856 

100 

68.16928 

14.40391 

53.76538 
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APPENDIX  B  -  MODEL  OUTPUT  FROM  EXAMPLE  PROBLEM 


I.  DISPATCH  REPORT 

The  dispatch  report  contains  information  on  the  departure,  arrival  and  return  of  all 
convoys.  A  convoy  is  identified  by  its  motorpool  and  time  of  departure.  The  time  and 
place  of  the  action  are  listed  next.  The  last  item  is  how  many  assets  were  in  the  convoy 
(convoys  can  leave  non-mission  capable  assets  at  a  node  if  no  maintenance  contact  teams 

are  available).  Following  are  excerpts  of  what  an  actual  simulation  run  produced. 

**********«***********************#*< *** 

**********cqnyoY  ACTIVITIES************ 
*****-********************************** 


Convoy  DammamMotorbO. 073864  is  leaving  DammamMotor 
TIME  OF  DEPARTURE  is  60.073864.  Number  in  convoy  is  25 

Convoy  DammamMotor60. 110795  is  leaving  DammamMotor 
TIME  OF  DEPARTURE  is  60.110795.  Number  in  convoy  is  25 

CONVOY  DammamMotor60.073864  arrived  at  KKMC 
TIME  OF  ARRIVAL  is  73.386943 
Number  in  convoy  is  25. 

CONVOY  DammamMotor60. 110795  arrived  at  KKMC 
TIME  OF  ARRIVAL  is  73.910847 
Number  in  convoy  is  25. 

convoy  DammamMotor60. 1 10795  returned  to  KKMC 
time  of  RETURN  is  106.657896 
Number  in  convoy  is  25. 


50 


H.  MOTORPOOL  REPORTS 

Every  24  hours  a  summary  is  generated  for  each  motoipool  in  ITTSS.  For  each 
vehicle  type  that  a  motoipool  contains,  the  total  assets,  number  committed,  available  and 
deadlined  are  shown.  The  utilization  and  availability  rates  are  also  listed. 

*********4^******************** 

*******MOTORPOOL  REPORTS**** 


t*********************************************************** 

*******Status  for  DammamMotor  MOTORPOOL.  Time  is  120.000000 

- -Vehicle  Type  is  HETTS - 

Total  Assets  are  385 

Total  Committed  is  272  Util  Rate  %  is  0.706494 
Total  Available  is  272  Avail  Rate  %  is  0.706494 
Total  Deadlined  is  113 

*4^*************#************************#******** 

- Vehicle  Type  is  WRECKERS - 

Total  Assets  are  4 

Total  Committed  is  0  Util  Rate  %  is  0.000000 

Total  Available  is  4  Avail  Rate  %  is  1.000000 

Total  Deadlined  is  0 

4<  4>4<4<4<4>4<4<4<4<4>4'4>4<4<*4<4<  4<4<4<4<4<4<4<4<  4^  4<*4>*4<*4<4<***4<*4'*******4> 

HI.  MAINTENANCE  ACTIVITIES 

Whenever  a  maintenance  action  occurs,  it  is  outputted  to  the  activities  report.  An 
asset’s  breakdown  is  reported  with  a  reference  to  the  time  and  location  of  the  incident. 
Whenever  an  asset  is  received  to  be  repaired  or  returned  repaired  by  a  maintenance 
facility,  the  action  is  listed  in  the  report.  An  exceipt  from  one  of  the  simulation  runs  is 
found  below. 


4>  *  *  4>  41 41  *  *  *  *  *  *  *  *  *  *  *  *  *  m  *  #  #  *  *  *  *  #  *  *  *  4<  * 

*******MAINTENANCE  ACTIVITIES**** 


Asset  NMC  at  AUubayl.  Bumper  Number  is  Hett_  Dammam_326 
Time  of  breakdown  is  62.543533 
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Asset  NMC  at  AUubayl.  Bumper  Number  is  Hett_  Dammam_272 
Time  of  breakdown  is  62.591341 

Maint  DammamMaint  received  Hett_  Dammam_291  at  109.891540 
Maint  DammamMaint  received  Hett_  Dammam_293  at  109.891540 
MAINT  DammamMaint  RELEASED  Hett_  Dammam_6  at  143.997896 
MAINT  DammamMaint  RELEASED  Hett_  Dammam_10  at  143.997896 

IV.  SUPPLY  REPORTS 

These  reports  are  generated  every  24  hours  for  each  supply  point  in  ITTSS.  For 
every  separable  supply  item,  the  current  stock  level,  days  of  supply  onhand  required, 
maximum  upper  level,  daily  consumption  rate  and  the  current  amount  on  order  is  listed. 
For  nonseparable  items,  like  tracked  vehicles,  only  the  amount  onhand  is  output. 

* * * * * * * * * * * * * * * * * * * ** * * * * * ** * * * 

********SUPPLY  REPORTS********* 


4c*********************************************************** 

♦"■♦♦♦♦♦Status  for  DammamSup  SUPPLY  POINT.  Time  is  96.000000 

- Record  for  CL5 - 

stock  level  is  1000000.000000 
days  of  supply  is  5 
upper  level  is  10000000.000000 
daily  consumption  is  1000.000000 
on  order  is  0.000000 

*********************************************************** 

********************************************************** 

*******Status  for  KKMCsup  SUPPLY  POINT.  Time  is  96.000000 

- Record  for  CL5 - 

stock  level  is  1000000.000000 
days  of  supply  is  5 
upper  level  is  10000000.000000 
daily  consumption  is  1000.000000 

on  order  is  0.000000 
********************************** 
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- Record  for  Ml - 

number  on  hand  is  93 
********************************** 

- Record  for  M2 - 

number  on  hand  is  64 
********************************** 

- Record  for  Ml  13 — 

number  on  hand  is  118 
********************************** 

- Record  for  M109 — 

number  on  hand  is  8 
********************************** 

- Record  for  ACE - 

number  on  hand  is  27 
********************************** 

- Record  for  M548 — 

number  on  hand  is  30 
********************************** 

- Record  for  M106 — 

number  on  hand  is  6 
********************************** 

- Record  for  FIST-V-- 

number  on  hand  is  16 
********************************** 

- Record  for  M577 — 

number  on  hand  is  29 
********************************** 

- Record  for  M578 — 

number  on  hand  is  3 
********************************** 

- Record  for  M3 - 

number  on  hand  is  18 
********************************** 

- Record  for  M901 — 

number  on  hand  is  12 
********************************** 

- Record  for  M88 - 

number  on  hand  is  24 
********************************** 

- Record  for  AVLB — 

number  on  hand  is  12 
********************************** 

- Record  for  CEV - 
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number  on  hand  is  6 

********************************** 

*********************************************************** 
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APPENDIX  C  -  INPUT  DATA  FILES 


Data  for  ITTSS  must  be  input  by  means  of  data  files  that  are  listed  in  this 
appendix.  The  method  of  reading  the  data  and  inputting  it  for  use  in  the  model  was 
provided  by  Professor  Michael  P.  Bailey  of  the  Naval  Postgraduate  School.  This  method 
requires  the  data  to  be  listed  in  a  particular  order.  If  too  few  or  too  many  parameters 
are  listed  or  spaces  between  parameters  are  omitted,  run-time  errors  could  occur.  Aside 
from  the  MASTER.DAT  file,  each  data  file  begins  with  an  integer  that  represents  how 
many  topstrings,  the  names  of  records  in  the  array,  will  be  read  into  that  data  file’s  input 
array.  The  topstrings  are  the  names  that  are  located  before  the  "-> ".  They  represent 
the  name  of  individual  records  that  contain  ownedstrings.  Ownedstrings  are  the 
characters  after  the The  ownedstrings  represent  the  data  in  each  record.  Data  in 
each  record  is  accessed  by  using  the  topstring  to  find  the  correct  record  and  using  the 
position  of  the  ownedstring  to  find  the  data’s  position  in  the  data  array.  After  each  data 
file  is  a  description  within  braces  of  what  each  position  of  the  topstring  and  its 
ownedstrings  represent. 

The  future  version  of  ITTSS  will  be  menu  driven  through  the  use  of 
SIMGRAPHICS.  The  user  will  have  limited  access  to  the  data  files  and  therefore,  fewer 
errors  will  occur  when  parameters  need  to  be  updated  or  changed. 
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I.  MASTER.DAT 


NODE.DAT 

MOTORPL.DAT 

SUPPLY.DAT 

SSOUPCE.  DAT 

FUELPT.DAT 

UNITS.DAT 

VEHFLD.DAT 

TRAVELP  DAT 

VEHOWN.i^.T 

UNKS.DAT 

ROUTES.DAT 

MISSION.DAT 

SEEDS.DAT 

H.  NODE.DAT 

9 

Economy  ->  300  18  90  .5  1  5 

M  none  MA  none  S  TheEconomy 
F  none  U  EUnits  EOF  \\ 

Dammam ->  300  18  90  .5  1  5 

M  DammamMotor  MA  DammamMaint  S  DammamSup 
F  DammamFuel  U  Dam  mam  Units  EOF  \\ 

AJJubayl  -  >  300  18  90  .5  1  5 

M  none  MA  none  S  none 
F  none  U  none  EOF  \\ 

Bastogne  ->  300  18  90  .5  1  5 

M  none  MA  none  S  none 

F  none  U  none  EOF  \\ 

ALPHA ->  300  18  90  .5  1  5 

M  none  MA  none  S  none 

F  none  U  none  EOF  \\ 

KKMC  ->  300  18  90  .5  1  5 

M  none  MA  none  S  KKMCsup 

F  KKMCfuel  U  KKMCunits  EOF  \\ 

Riyadh ->  300  18  90  .5  1  5 

M  none  MA  none  S  none 
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F  RiyadhFuel  U  none  EOF  \\ 

DELTA ->  300  18  90  .5  1  5 

M  none  MA  none  S  none 

F  none  U  none  EOF  \\ 

CSCy  ->  300  18  90  .5  1  5 

M  none  MA  none  S  none 

F  CSCyFuel  U  none  EOF  \\ 

{node  name  ->  maxMiles  before  standDown,  standDownTime, 
milesBeforeBreak,  breakTime,  dayToStart,  dayToEnd 
motorpool,  maintenance  facility,  supplypoint, 
fuelpoint,  unit} 

m.  MOTORPOOL.DAT 

1 

Dammam ->  25  350  1000  TRUE  .5  EOF  \\ 

{node  name  ->  maxNumblnConvoy,  distBetweenVeh  (feet),  distBetweenConvoys  (feet), 
wreckersConvoy  (maint  contact  team  avail),  repaiiTime} 

IV.  SUPFLY.DAT 
3 

Economy  ->  7.0  2  2  2  .25  .25 

CL5  CARGO  0  1000000  5  10000000  EOF  \\ 

Dammam  ->  7.0  2  2  2  .25  .25 

CL5  CARGO  0  1000000  5  10000000  EOF  \\ 

KKMC  ->  7.0  2  2  2  .25  .25 

CL5  CARGO  0  1000000  5  10000000  EOF  \\ 

{node  name  -  >  TimeToCheckStock,  ft  of  ReceivingPoints,  ft  of  LoadingPoints, 
ft  of  MHE,  loadTime,  unloadTime 
Item,  MOR,  Priority,  DailyConsRate,  StkLvl,  DOS,  UpLvl} 

V.  SSOURCE.DAT 
3 

TheEconomy  -  >  TheEconomy  \\ 

DammamSup  ->  TheEconomy  \\ 

KKMCsup  ->  DammamSup  \\ 
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{supply  point  name  -  >  supply  source} 


VI.  FUELPT.DAT 

4 

Dammam  -  >  0.0 

5000.0  .25  4  \\ 

KKMC  ->  0.0 

5000.0  .25  3  \\ 

Riyadh  ->  0.0 

5000.0  .25  3  \\ 

CSCy  ->  0.0 

5000.0  .25  3  \\ 

{node  name  -  >  Starting  Fuel  Level 

Max  Fuel  Level,  Refueling  Time,  Number  of  Fuel  Pumps} 

Vn.  UNITS.DAT 

3 

Economy ->  1  5  CL5  1000  EOF  \\ 

Dammam  ->  1  5  CL5  1000  EOF  \\ 

KKMC  ->  1  5  CL5  1000  EOF  \\ 

{node  name  -  >  day  to  start  consuming,  day  to  end  consuming,  class  of  supply, 
amount  to  consume} 

Vm.  VEHFLD.DAT 

5 

TRUCKS -> 

M35A2  CARGO  35  50  0  500  2000  15  12  20  8  1920  10000 
.044  40.4  750 

M54A1  CARGO  40  75  0  550  3500  15  12  25  8  2400  10000 
.041  40.4  753 

LMTV  CARGO  35  50  0  500  2000  15  12  20  8  1920  10000 
.008  40.4  2200 

M939  CARGO  35  50  0  500  2000  15  12  20  8  1920  10000 
.008  40.4  1800 

HEMTT  CARGO  35  50  0  500  2000  15  12  20  8  1920  10000 
.005  34.0  2675  \\ 
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TRAC  TRLS -> 

fractor  TRAILER  50  50  0  500  2000  15  12  20  8  1920  5000 
.01  40.0  1000 

M939T  TRAILER  50  50  0  500  2000  15  12  20  8  1920  5000 
.008  40.4  2500 

M915T  TRAILER  50  50  0  500  2000  15  12  20  8  1920  5000 
.09  34.0  1160  \\ 

TRAC  LOWBOYS  -> 

Trailer  CARGO  50  50  0  500  2000  15  12  20  8  1920  5000 
.01  40.0  500  \\ 

HETTS -> 

Hett  HETT  70  50  0  500  5000  20  0  403  0  0  140000 
.005  34.0  2500 

M911H  HETT  70  50  0  500  5000  20  0  317  0  0  140000 
.009  34.0  1630 

M1070H  HETT  70  50  0  500  5000  20  0  403  0  0  140000 
.005  34.0  2500  \\ 

WRECKERS -> 

Wrecker  RECOVERY  40  75  0  550  3600  15  0  0  0  0  20000 
.017  40.4  1700  \\ 

{type  vehicle  -  >  model,  type,  fiielCap,  fuelConsump,  odometer,  engHrs,  assetWeight, 
assetLength,  height,  length,  width,  cubeFt,  weight 
maintManHrs,  adminLogTime,  MMBF} 

IX.  TRAVELR.DAT 

10 

M35A2  -> 

55.0  48.7  48.7  32.4  40.0  39.6  39.6  29.6 
24.9  24.9  24.9  20.2  18.0  18.0  18.0  17.5  EOF  \\ 

Wrecker  -  > 

40.0  39.6  39.6  28.3  40.0  37.9  37.9  28.1 

24.8  24.8  24.8  20.1  24.8  24.8  24.8  20.1  EOF  \\ 

Hett  -> 

30.9  16.6  16.6  8.1  27.0  16.1  16.1  7.8 

8.2  8.1  8.1  5.4  8.2  7.7  7.7  5.2  EOF  \\ 

LMTV  -> 

40.0  39.6  39.6  28.3  40.0  37.9  37.9  28.1 
24.8  24.8  24.8  20.1  24.8  24.8  24.8  20.1  EOF  \\ 

M939  -  > 

40.0  35.7  35.7  22.7  40.0  34.0  34.0  22.5 
23.0  21.8  21.8  15.8  10.7  10.7  10.7  10.7  EOF  \\ 
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M939T  -  > 

34.4  20.1  20.1  10.3  31.8  19.3  19.3  10.2 

13.7  10.9  10.9  7.2  10.7  8.  8.6  6.1  EOF  \\ 
HEMTT -> 

38.0  38.0  38.0  25.3  38.0  34.4  34.4  24.4 

24.7  23.3  23.3  18.0  16.9  16.9  16.9  15.4  EOF  \\ 
M915T  -> 

23.0  21.2  21.2  12.5  23.0  20.5  20.5  12.3 
14.0  11.2  11.2  8.3  10.0  9.7  9.7  7.5  EOF  \\ 
M911H  -> 

21.0  13.4  13.4  7.7  19.3  11.8  11.8  7.4 
8.6  7.6  7.6  4.5  7.9  6.8  6.8  4.2  EOF  \\ 
M1070H  -> 

30.9  16.6  16.6  8.1  27.0  16.1  16.1  7.8 
8.2  8.1  8.1  5.4  8.2  7.7  7.7  5.2  EOF  \\ 


{vehicle  -> 
concrete 

flat  rollingHills  hillsCurves  mountainous 
bituminous 

flat  rollingHills  hillsCurves  mountainous 
gravel 

flat  rollingHills  hillsCurves  mountainous 
dirt 

flat  rollingHills  hillsCurves  mountainous} 


X.  VEHOWN.DAT 


2 

Dammam  ->  TRUCKS  none 

TRACTRLS  none 
TRACLOWBO  Y S  none 
HETTS  Hett  385 
WRECKERS  Wrecker  4  \\ 

KKMC  ->  TRUCKS  none 

TRACTRLS  none 
TRAC JjOWBOYS  none 
HETTS  none 
WRECKERS  none  \\ 

{node  -  >  type  vehicle,  model,  number  of} 
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XI.  UNKS.DAT 


9 

Economy  ->  Dammam  20.0  concrete  flat  \\ 

Dammam  ->  AUubayl  60.0  concrete  flat 
CSCy  113.0  concrete  flat  \\ 

AUubayl  ->  Bastogne  72.0  concrete  flat 
Dammam  60.0  concrete  flat  \\ 

Bastogne  -  >  AUubayl  72.0  concrete  flat 
ALPHA  101.0  concrete  flat  \\ 

ALPHA  ->  Bastogne  101.0  concrete  flat 
KKMC  101.0  concrete  flat  \\ 

KKMC  ->  ALPHA  101.0  concrete  flat  \\ 

CSCy  ->  Dammam  113.0  concrete  flat 
Riyadh  113.0  concrete  flat  \\ 

Riyadh  ->  CSCy  113.0  concrete  flat 
DELTA  175.0  concrete  flat  \\ 

DELTA  ->  Riyadh  175.0  concrete  flat 
KKMC2  127.0  concrete  flat  \\ 

{link  origin  ->  link  destination  distance,  roadSurface,  terrain} 

XH.  ROUTES.DAT 

9 

Economy  -  >  Economy  Dammam  EOF  \\ 

Dammam  -> 

Dammam  AUubayl  Bastogne  ALPHA  KKMC 
Dammam  AUubayl  Bastogne  ALPHA 
Dammam  AUubayl  Bastogne 
Dammam  AUubayl 

Dammam  CSCy  Riyadh  DELTA  KKMC2 
Dammam  CSCy  Riyadh  DELTA 
Dammam  CSCy  Riyadh 
Dammam  CSCy  EOF  \\ 

AUubayl  -> 

AUubayl  Bastogne  EOF  \\ 

Bastogne  -> 

Bastogne  ALPHA  EOF  \\ 

ALPHA  -> 
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ALPHA  KKMC  EOF  \\ 

KKMC  -> 

KKMC  ALPHA  Bastogne  AUubayl  Dammam 
KKMC  ALPHA  EOF  \\ 

KKMC2  -> 

KKMC2  DELTA  Riyadh  CSCy  Dammam  EOF  \\ 
AUubayl  -  > 

AUubayl  Dammam 
AUubayl  Bastogne 
AUubayl  Bastogne  ALPHA 
AUubayl  Bastogne  ALPHA  KKMC 
AUubayl  Bastogne  ALPHA  ECHO 
AUubayl  Bastogne  ALPHA  ECHO  CHARLIE  EOF  \\ 
Dhahran  -> 

Dhahran  CSCy 

Dhahran  CSC y  Riyadh 

Dhahran  CSCy  Riyadh  DELTA 

Dhahran  CSCy  Riyadh  DELTA  KKMC  EOF  \\ 


{node  ->  start  node,  next  node... next  to  last,  end  node} 

Xm.  MISSION.DAT 
1 

Dammam  ->  116  Ml  120251  312  HETT  0  TRUE  KKMC  10 
24  M88  112100  325  HETT  0  TRUE  KKMC  10 

12  A  VLB  91999  340  HETT  0  TRUE  KKMC  10 
6  CEV  111198  351  HETT  0  TRUE  KKMC  10 

64  M2  41899  254  HETT  0  TRUE  KKMC  10 

18  M3  41500  254  HETT  0  TRUE  KKMC  10 

12  M901  26001  191  HETT  0  TRUE  KKMC  10 

29  M577  23953  191  HETT  0  TRUE  KKMC  10 

3  M578  53572  220  HETT  0  TRUE  KKMC  10 

30  M548  16000  232  HETT  0  TRUE  KKMC  10 

16  FIST-V  26001  191  HETT  0  TRUE  KKMC  10 

27  ACE  26592  191  HETT  0  TRUE  KKMC  10 

6  M106  19852  194  HETT  0  TRUE  KKMC  10 

118  Ml  13  23442  191  HETT  0  TRUE  KKMC  10 

24  M109  46540  244  HETT  0  TRUE  KKMC  10  EOF  \\ 


{node  ->  number  to  create,  name  of  item,  weight  in  lbs, 

length  in  inches,  method  of  resupply,  priority,  nonseparable,  destination,  time  to 
begin  mission} 
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XIV.  SEEDS.DAT 


This  data  file  (not  shown)  contains  an  integer  on  the  first  line  that  represents  the 
number  of  seeds  in  the  file.  The  remaining  numbers  are  random  seeds  that  are  generated 
by  MODSIM  n™’s  random  number  seed  generated. 
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APPENDIX  D  -  ITTSS  PROGRAM  CODE 


ITTSS  was  entirely  written  on  a  486DX-25mhz  personal  computer.  MODSIM  H™ 
can  be  run  on  a  variety  of  operating  systems.  This  simulation  model  was  written  with 
the  PC-OS/2  version  that  requires  the  PC-OS/2  version  1.1  or  later  and  the  C  compiler, 
Microsoft  C  5.0.  Programs  are  interchangeable  on  each  system  as  long  as  the  particular 
version  contains  the  required  libraries  the  model  utilizes. 

ITTSS  was  written  on  a  personal  computer  to  insure  that  the  model  did  not  need 
the  support  of  a  mainframe  or  a  large  database.  The  average  compilation  time  was  10 
to  20  minutes  depending  on  how  many  of  the  modules  required  recompilation.  Run  times 
were  between  1  and  4  minutes,  depending  on  the  setup  of  the  problem  being  run  to 
include  number  of  assets  created  and  number  of  cargo  to  be  moved. 
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MAIN  MODULE  ITTSS; 

FROM  INPUT  IMPORT  ReadEmAll; 

FROM  Debug  IMPORT  TraceStream; 

FROM  CREATET  IMPORT  CreateTranaSyitem; 

FROM  DEBUGRN  IMPORT  SetUpD; 

FROM  SimMod  IMPORT  SurtSimuUtion; 

FROM  STARTEM  IMPORT  StartConauming,  StartSupplyActivitie*, 

ScheduleMiuiooj,  StartReporta, 

FROM  NETWORK  IMPORT  NetworkObj; 

VAR 

Network  :  NetworkObj; 
decieion  :  STRING; 

BEGIN 

SetUpDfTRUE); 

ReedEiuAU; 

CreateTran*Syatem(Network); 

OUTPUT("Do  you  want  to  run  a  COMPLETE  Tranaportation  Simulation?*); 
OUTPUT(’Enter  Y  for  yea,  N  for  no.*); 

INPUT(deeiaion); 

IF(deciaion  «  *Y*)  OR  (deciaion  -  *y*)  OR  (deciaion  “  *YES*)  OR  (deciaion  »  *Yea* 
StartConauming  (Network); 

StartSupplyActivitiea(Ne*work); 


END  IF; 

ScheduleMiaaiona(Network.NodeLiat); 

StartReporta(Network.NodeLi«t); 

OUTPUT!* - START  SIMULATION - *); 

StartSimuIation; 

OUTPUT (* - FINISHED  SIMULATION- - *); 

END  MODULE  {IITS}. 

{ - - - > 

DEFINITION  MODULE  GLOBAL; 

{Contain*  variable*  that  will  be  uaed  throughout  it  iSS  by  other  object*} 
FROM  GrpMod  IMPORT  QueueObj; 

TYPE 

HqNameType  -  STRING; 

AaaetNameType  •  STRING; 

ModelNameType  “  STRING; 

NodeNameTyp#  *  STRING; 

Facility NameTyp*  -  STRING; 

TranaUnhNatneType  *  STRING; 
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Dimension*  »  RECORD  {Dimensions  for  stowage  of  cargo} 
height, 

length, 

width, 

cubeFt, 

losdCsp  :  REAL; 

END  RECORD; 

AsaetTypeQueue  »  QueueObj; 

CargoTypeQueue  »  QueueObj; 

LinkTypeQueue  =  QueueObj; 

NodeTypeQueue  •  QueueObj; 

RouteTypeQueue  =  QueueObj; 

SupplyRecordTypeQueue  »  QueueObj; 

RequesfTypeQueue  *  QueueObj; 

ConsumetQueue  «  QueueObj; 

SupplyClauType  *  STRING; 

DeacriptTyp#  -  STRING; 

Destine  tionType  =  STRING; 

CsrgoType  =  (AMMO,  CONTAINER,  FUEL,  HETT,  WATER,  CARGO,  RECOVERY); 
AssetStatus  «  (Motoipool,  Committed,  Msintensnce); 

VehicleType  -  (TRUCKS,  TRACTORS,  TRAILERS,  TANKERS,  WRECKERS); 
rosdCheract  «  (fist,  rollingHills,  hillsCurves,  mounteinoui,  concrete,  bituminous,  gravel,  dirt); 
FsilType  -=  ARRAY  INTEGER  OF  REAL; 

PROCEDURE  DisposeOfQueue  (IN  Queue  :  QueueObj); 

END  {DEFINITION}  MODULE  {global}. 

IMPLEMENTATION  MODULE  GLOBAL; 

FROM  GrpMod  IMPORT  QueueObj; 

{ - } 

PROCEDURE  DisposeOfQueue  (IN  queue  :  QueueObj); 

{ - } 

VAR 

dump  :  ANYOBJ; 

BEGIN 

dump  :  ”  ASK  queue  First  0; 

WHILE  dump  <  >  NILOBJ 
DISPOSE(du  mp) ; 
dump  :  =  ASK  queue  Next(dump); 

END  WHILE; 

DISPOSE(queue); 

END  PROCEDURE  {DisposeOfQueue}; 

END  {IMPLEMENTATION}  MODULE  {globs!} 

DEFINmON  MODULE  RGLOBAL; 

{All  pertinent  variables  for  inputting  data  are  defined  here} 

CONST 

MasterFUeName  *  "Master.dat*; 

TYPE 

FileNameType  *  STRING; 

SArrsyType  «  ARRAY  INTEGER  OF  STRING; 

SHierRecType  -  RECORD 
TopString  :  STRING; 

OwnedString  :  SArrsyType; 
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END  RECORD  ; 

SHArrayType  —  ARRAY  INTEGER  OF  SHierRecType; 

SeedArrayType  -  ARRAY  INTEGER  OF  INTEGER; 

VAR 

NodeSHArray  :  SHArrayType; 

AaaetOwneraSH  Array  :  SHArrayType; 

MotjrpoolSHArray  :  SHArrayType; 

MaintenanceSHArray :  SHArrayType; 

SupptySHArray :  SHArrayType; 

Supply  Sou  rceSHArray :  SHArrayType; 

FuelpointSHArray :  SHArrayType; 

UnitaSHArray  :  SHArrayType; 

AaeecFieJdaSHArray ;  SHArrayType; 

TravelRateaSHArray  :  SHArrayType; 

Links  HArray  :  SHArrayType; 

RouteSHArray  :  SHArrayType; 

MiaaionSHArray  :  SHArrayType; 

Seed  Array  :  SeedArrayType; 

SeedCount :  INTEGER; 

END  {DEFINITION}  MODULE  {RGlobaJ}. 

. . 

DEFINITION  MODULE  INPUT; 

{Thia  procedure  input  all  data  that  ia  required  to  run  ITTSS} 

PROCEDURE  ReadEmAll; 

END  {DEFINTnON}  MODULE  {Input}. 

IMPLEMENTATION  MODULE  INPUT; 

FROM  IOMod  IMPORT  StreamObj,  FUeUaeType(Input); 

FROM  RGLOBAL  IMPORT  MaaterFUeName,  NodeSHArray, 

AaaetOwneraSHArray,  MotorpoolSH Array,  MaintenanceSHArray,  SupplySHArtay, 
SupplySourceSH Array,  FuelpointSHArray,  UnitaSHArray,  AaaetFieldaSH Array, 
TravelRateaSHArray,  LinkSHArray,  RouteSHArray,  MiaaionSHArray,  Seed  Array,  FileNameType: 
FROM  READLST  IMPORT  ReadLat, 

FROM  READSED  IMPORT  ReadTheSeeda; 

FROM  Debug  IMPORT  TraceStream; 

VAR 

NodeFiieName, 

AaaetOwneraFileName, 

MotorpoolFileName, 

MaintenanceFileName, 

Supply  FileName, 

Supply  SourceFileName, 

FuelpointFUeName, 

UnitaFileName, 

AaeetFieldeFtleName, 

TravelRateaFileName, 

LinkFileName, 

MiuionFiieNatne, 

Seed  FileName, 

RouteFileName :  FileNameType; 

{ - } 

PROCEDURE  ReadNode; 

{ - } 

BEGIN 
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ReadL*t(NodeSHArray ,  NodeFUeName); 

END  PROCEDURE  {ReadNode}; 

{ - ) 

PROCEDURE  ReadMotorpool; 

{ - } 

BEGIN 

ReadL*t(MotorpoolSHArray,  MotorpoolFLIeName); 

END  PROCEDURE  {ReadMotorpool}; 

{ - } 

PROCEDURE  ReadMainlenance; 

{ - } 

BEGIN 

RoadLat(MainlenanceSHAir*y ,  MaintenanceFileName); 
END  PROCEDURE  {ReadMaintenance}; 

{ - } 

PROCEDURE  ReadSupply; 

{ - } 

BEGIN 

ReadLat(SupplySHArray,  SupplyFileName); 

END  PROCEDURE  {ReadSupply}; 

{ - } 

PROCEDURE  ReadSupplySource; 

{ - } 

BEGIN 

Read  Lat(Supply  Sou  rceSH  Array,  SupplySourceFileName); 

END  PROCEDURE  {ReadSupptySource}; 

{ - } 

PROCEDURE  ReadFuelpoint; 

{ - } 

BEGIN 

ReadLet(FuelpointSHAmy,  FuelpointFileName); 

END  PROCEDURE  {ReadFuelpoint}; 

{ - } 

PROCEDURE  Read  Units; 

{ - } 

BEGIN 

ReadLat(UnitaSHAmy,  UnitaFileName); 

END  PROCEDURE  {ReadUnita}; 

{ - } 

PROCEDURE  ReadAasetFields; 

{ - } 

BEGIN 

ReadLat(AasetFieIdaSH  Array,  AaaetFieldaFileName); 
END  PROCEDURE  {Read AaaetFieldi} ; 

{ - } 

PROCEDURE  ReadTravelRites; 

{ - } 

BEGIN 

ReadLit(Tr»veIRate*SH  Array,  TravelRateaFileName); 
END  PROCEDURE  {ReadTravelRatea} ; 

{ - } 

PROCEDURE  ReadAsaetOwners; 
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{ - } 

BEGIN 

ReadLat(AaaetOwneraSH  Array,  AaaetOwneraFileName); 
END  PROCEDURE  {ReadAaaetOwnen}; 

{ - } 

PROCEDURE  ReadLinki; 

{ - } 

BEGIN 

ReadLat(LinkSHArray  ,  LinkFileName); 

END  PROCEDURE  {Read Links}; 

{ - } 

PROCEDURE  ReadRoutea; 

{ - } 

BEGIN 

ReadLat(RoutaSHAiray ,  RouteFileName); 

END  PROCEDURE  {ReadRoutea}; 

{ - } 

PROCEDURE  ReadMiasiona; 

{ - } 

BEGIN 

ReadLat(MiasionSHArray  ,  MisaionFileName); 

END  PROCEDURE  {ReadMiasiona}; 

{ - } 

PROCEDURE  ReadEmAll; 

{ - } 

VAR 

File  :  StreamObj; 
atr  :  STRING; 

BEGIN 

NEW(File); 

ASK  File  TO  Open(MaaterFileName,  Input); 

ASK  File  TO  ReadString(NodeFileName); 

ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString(MotorpoolFileName); 
ASK  File  TO  ReadLine(str); 

ASK  File  TO  ReadString(SupplyFileName); 

ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString(SupplySourceFileName); 
ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString(FuelpointFileName); 
ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString (U  nitaFileName) ; 

ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString(AaeetFieldaFileName); 
ASK  File  TO  ReadUne(atr); 

ASK  File  TO  ReadString(TnvelRate.i  ileName); 
ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString(AseetOwnersFileName); 
ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString  (LinkFileName); 

ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString(RouteFUeName); 

ASK  FUe  TO  Read  Linear); 

ASK  File  TO  ReadString(MiaeionFileName); 

ASK  File  TO  ReadLine(atr); 

ASK  File  TO  ReadString(SeedFileName); 
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RaadNode; 

ReadMotorpool; 

ReadSupply; 

ReadSupplySource; 

ReadFuelpoint; 

ReadUnita; 

Read  Aiaet  Fields ; 

ReadTrav  elRatea ; 

Read  AaaetOwnen ; 

ReadLinlu; 

ReadRoutea; 

ReadMiuions; 

ReadTheSeed»(SeedFU«Name); 

END  PROCEDURE  {ReadEmAll}; 

END  {IMPLEMENTATION}  MODULE  {Input}. 

. . 

DEFINITION  MODULE  READLST; 

{Integral  procedure  in  the  inputting  of  data  to  the  model} 

FROM  RGLOBAL  IMPORT  SHArrayType,  FileNameType; 

PROCEDURE  ReadLat  (INOUT  SHArray  :  SHArrayType; 

IN  FileName  ;  FileNameType); 

END  {DEFINITION}  MODULE  {ReadLat}. 

IMPLEMENTATION  MODULE  READLST; 

FROM  IOMod  IMPORT  StreamObj,  FileUseType(Input); 

FROM  RGLOBAL  IMPORT  SHArrayType,  FileNameType; 

FROM  READSH  IMPORT  ReadSH; 

FROM  Debug  IMPORT  TraceStream; 

{ - > 

PROCEDURE  ReadLat  ( INOUT  SHArray  :  SHArrayType; 

IN  FileName  ;  FileNameType); 

{ - 1 

VAR 

File  :  StreamObj; 
numberOfSH  :  INTEGER; 
i  :  INTEGER; 
error  :  BOOLEAN; 
atring  :  STRING; 

BEGIN 

NEW(File); 

ASK  File  TO  Open(FileName,  Input); 

ASK  File  TO  ReadInt(numbetOf5H); 

ASK  File  TO  ReadLine(etring); 

NEW(SH Array,  l..numbetOfSH); 

FOR  i  :=  1  TO  numberOfSH 

ReadSH(File,  SHArray  [i],  error); 

IF  error 

ASK  TraceStream  TO  WriteStringCproblem  reading  file  ’  +  FileName  + 

END  IF; 

END  FOR; 

ASK  File  TO  ObjTerminateO; 

ASK  File  TO  DeleteO; 

END  PROCEDURE  {ReadLat}; 

END  {IMPLEMENTATION}  MODULE  {ReadLat}. 


’  BAD  FORMAT  DET>  "); 
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I  I 

DEFINITION  MODULE  RE  ADS  H; 

{Integral  part  in  inputting  date  to  the  model) 

FROM  ROLOBAL  IMPORT  SHierRecType; 

FROM  IOMod  IMPORT  StreemObj; 

PROCEDURE  ReadSH  ( IN  File  :  StreemObj; 

OUT  SHierRec  :  SHierRecType; 

OUT  error  :  BOOLEAN); 

END  {DEFINITION}  MODULE  {ReadSH}. 

IMPLEMENTATION  MODULE  READSH; 

FROM  ROLOBAL  IMPORT  SHierRecType; 

FROM  IOMod  IMPORT  StreemObj,  FileUaeType(Input),  ReadKey; 
FROM  Debug  IMPORT  TraceStreem; 

{ - > 

PROCEDURE  ReadSH  (  IN  File  :  StreemObj; 

OUT  SHierRec  :  SHierRecType; 

OUT  error  :  BOOLEAN); 

{ - } 

TYPE 

StringRecType  =  RECORD 
String  :  STRING; 

Next  :  StringRecType; 

END  RECORD; 

VAR 

string  :  STRING; 
numberOfStrings :  INTEGER; 

StringRec,  OldStringRec  :  StringRecType; 
first  :  StringRecType; 
arrow  :  STRING; 

StringRec  :  StringRecType; 
i  :  INTEGER; 
i  :  CHAR; 

BEGIN 

NEW(SHierRec); 

ASK  File  TO  ReadString(SHierRec.TopString); 

NEW(StringRec); 
numberOfStrings  :  =  1; 
first  :««  StringRec; 

ASK  File  TO  ReadString(arrow); 

IF  arrow  <  >  '-  >  * 

ASK  TraceStreem  TO  WriteString("file  not  formatted  correctly’); 
error  :«*  TRUE; 

RETURN; 

ELSE 

error  :«  FALSE; 

END  IF; 

WHILE  string  <  >  *\\* 

ASK  File  TO  ReadString(string); 

IF  string  —  *..* 

ASK  File  TO  ReadUne(string); 

ELSE 

OldStringRec  :=  StringRec; 

StringRec. String  :=  string; 

NEW(StringRec); 

OldStringRec. Next  :  =  StringRec; 
numberOfStrings  :  ~  numberO, Strings  +  1 ; 
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END  IF; 

END  WHILE; 

ASK  File  TO  ReadLine(string); 

IF  (numberOfStrings  >  0)  AND  NOT  error 

NEW(SHierRec.OwnedString,  1  ..numberOfStrings  -  2); 
itringRec  :»  first; 

FOR  i  :  =  1  TO  numbeiOfStringi  -  2 

SHierRec.OwnedString[i]  :=  (tringRec. String; 
itringRec  itringRec. Next; 

END  FOR; 

END  IF; 

END  PROCEDURE  {ReadSH}; 

END  {IMPLEMENTATION}  MODULE  {ReedSH}. 

{******************************************************} 

DEFINITION  MODULE  F1NDSH; 

{When  given  ■  name,  it  learchi  a  data  array  and  givea  back  the  correct  record  requested.  Used  for  giving  objects  the  initial  values 
for  their  fields} 

FROM  ROLOBAL  IMPORT  SHierRecType.SHArrayType; 

PROCEDURE  FindSHRec  (IN  SHArray  :  SHAmyType; 

IN  TopString  :  STRING; 

OUT  SHRec  :  SHierRecType); 

END  {DEFINITION}  MODULE  {FindSH}. 

IMPLEMENTATION  MODULE  FINDSH; 

FROM  RGLOBAL  IMPORT  SHierRecType, SHAmyType; 

FROM  Debug  IMPORT  TraceStream; 

{ - } 

PROCEDURE  FindSHRec  (IN  SHArray  :  SHAmyType; 

IN  TopString  :  STRING; 

OUT  SHRec  :  SHierRecType); 

{ - } 

VAR 

ThisRec  :  SHierRecType; 
i  :  INTEGER; 

BEGIN 
NEW(SHRec); 
i  •—  0; 

REPEAT 

1NCC0; 

ThisRec  :  =  SHArray [i]; 

UNTIL  ((i  >“  HIGH(SHAmy))  OR  (ThisRec.TopString  =  TopString)); 

IF  (ThisRec.TopString  =  TopString) 

SHRec  :  “  ThisRec; 

ELSE 

ASK  TraceStream  TO  WriteString(*SHRec  is  a  NILREC!"); 

SHRec  :=  NILREC; 

END  IF; 

END  PROCEDURE  {FindSHRec}; 

END  {IMPLEMENTATION}  MODULE  {FindSH}. 

{a..'......**..,........'.'.,'..*.............*'...,.,.*..,., 

DEFINITION  MODULE  READSED; 

{Reads  the  seed  from  a  seed  file.  Seeds  are  used  for  the  mean  miles  between  operational  failures  for  each  asset} 


72 


FROM  ROLOBAL  IMPORT  FileNameType; 

PROCEDURE  ReadSeed  0  ■  INTEGER; 

PROCEDURE  ReadTheSeeda  (IN  FileName  :  FileNameType); 

END  {DEFINITION}  MODULE  {ReadSed}. 

IMPLEMENTATION  MODULE  READSED; 

FROM  Debug  IMPORT  TraceStream; 

FROM  IOMod  IMPORT  FileUaeType(Iflput),  StreamObj; 

FROM  ROLOBAL  IMPORT  FileNameType,  SeedCount,  Seed  Array; 

{ - } 

PROCEDURE  ReadSeed  0  :  INTEGER; 

{ - } 

BEGIN 

IF  (SeedCount  >  HIQH(Seed  Array)) 

ASK  TraceStream  TO  WriteString("Ran  out  of  aeeds  ’); 

ASK  TraceStream  TO  Write  Ln; 

HALT; 

RETURN (0); 

ELSE 

IF  (SeedCount  <  «=  0) 

SeedCount  :*  1; 

END  IF; 

INC(SeedCount); 

RETURN(SeedArray[SeedCount-  1]); 

END  IF; 

END  PROCEDURE  {ReadSeed}; 

{ - } 

PROCEDURE  ReadTheSeeda  (IN  FileName  :  FileNameType); 

{ - } 

VAR 

file  :  StreamObj; 
etr  :  STRING; 
i  :  INTEGER; 

NumberOfSeeda  :  INTEGER; 

BEGIN 

NEW(file); 

ASK  file  TO  Open(FileName,  Input); 

ASK  file  TO  Readlnt (NumberOfSeeda); 

NEW(Seed Array,  I.. NumberOfSeeda); 

FOR  i  :=  1  TO  NumberOfSeeda 

ASK  file  TO  ReadInt(SeedArray[i]); 

ASK  file  TO  ReadLine(atr); 

END  FOR; 

END  PROCEDURE  {ReadTheSeeda}; 

END  {IMPLEMENTATION} MODULE  {ReadSed}. 

DEFINITION  MODULE  DEBUGRN; 

{Seta  up  a  traceatream  that  aaeiata  in  debugging  any  compiling  or  runtime  errora.  If  SetUpD  in  the  main  module  ia  true,  the  trace 
ia  on,  if  falae,  only  errora  will  be  written  to  the  debug. out  file} 

PROCEDURE  SetUpD  (IN  TraceOn  :  BOOLEAN); 

END  {DEFINITION}  MODULE  {DebugRn}. 
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IMPLEMENTATION  MODULE  DEBUGRN; 

FROM  IOMod  IMPORT  FileUseType(Output); 

FROM  Debug  IMPORT  TraceStream; 

FROM  UtilMod  IMPORT  DateTime; 

{ - } 

PROCEDURE  SetUp  D  (IN  TraceOn  :  BOOLEAN); 

{ - } 

VAR 

DT:  STRING; 

BEGIN 

NEW(TraceStream); 

ASK  TraceStream  TO  Open  ("debug. out',  Output); 

DateTime(DT); 

ASK  TracaStream  TO  Writes  tring(DT); 

ASK  TraceStream  TO  WriteLn; 

ASK  TraceStream  TO  WriteLn; 

ASK  TraceStream  TO  WriteLn; 

IF  TraceOn 

ASK  TraceStream  TO  TraceOn; 

OUTPUTC - TRACE  ON - "); 

ASK  TraceStream  TO  WriteString(" Initially,  trace  ia  on.'); 

ASK  TraceStream  TO  WriteLn; 

ELSE 

ASK  TraceStream  TO  TraceOff; 

ASK  TraceStream  TO  WriteStringCInitially,  trace  ia  off.’); 

ASK  TraceStream  TO  WriteLn; 

END  IF; 

END  PROCEDURE  {SetUpD}; 

END  {IMPLEMENTATION}  MODULE  {DebugRn}. 

{************************************************************} 

DEFINITION  MODULE  NETWORK; 

(Network  ia  the  top  of  the  tree  that  contains  all  nodes,  links  and  routes.  All  access  to  these  objects  are  through  the  network’s  queue 
of  these  objects} 

FROM  GLOBAL  IMPORT  NodeTypeQueue,  LinkTypeQueue, RouteTypeQueue; 

TYPE 

NetworkObj  =  OBJECT 

NodeList :  NodeTypeQueue; 

RouteList  :  RouteTypeQueue; 

LinkList  ;  LinkTypeQueue; 

ASK  METHOD  Objlnit; 

END  OBIECT; 

END  {DEFINITION}  MODULE  {network}. 

IMPLEMENTATION  MODULE  NETWORK; 

FROM  GLOBAL  IMPORT  NodeTypeQueue, LinkTypeQueue, RouteTypeQueue; 

OBJECT  NetworkObj; 

{ - } 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(NodeList); 

NEW(RouteList); 

NEW  (LinkList) ; 

END  METHOD  {Objlnit}; 
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END  OBJECT  {NetworkObj}; 

END  {IMPLEMENTATION}  MODULE  {network}. 

DEFINITION  MODULE  CREATET; 

{These  era  general  procedures  that  initialize  the  transportation  system  for  ITTSS.  Nodes,  links,  routes,  and  all  objects  within  each 
node  are  created} 

FROM  ROLOBAL  IMPORT  SHierRecType; 

FROM  NODE  IMPORT  NodeObj; 

FROM  NETWORK  IMPORT  NetworkObj  , 

PROCEDURE  Ci«ateTransSystem(OUT  Network  :  NetworkObj); 

PROCEDURE  CieateNetwork  (IN  Network  ;  NetworkObj); 

PROCEDURE  CieateAttachedUnits  (IN  Node  :  NodeObj; 

IN  NodeSHRec  :  SHierRecType); 

END  {DEFINITION}  MODULE  {createt}. 

IMPLEMENTATION  MODULE  CREATET; 

FROM  Debug  IMPORT  TraceS tream; 

FROM  GLOBAL  IMPORT  RouteTypeQueue,  NodeTypeQueue; 

FROM  ROLOBAL  IMPORT  SHierRecType,  NodeSHArray,  MaintenanceSH Array,  MotorpoolSH Array, 

SupplySHArray,  FuelpointSHAmy; 

FROM  NETWORK  IMPORT  NetworkObj; 

FROM  NODE  IMPORT  NodeObj; 

FROM  FINDSH  IMPORT  FindSHRec; 

FROM  ROUTE  IMPORT  CreateLinks,  CreateRoutes; 

FROM  MAINT  IMPORT  MaintenanceObj; 

FROM  MOTORPL  IMPORT  MotorpoolObj, 

FROM  ASSET  IMPORT  AaaetObj; 

FROM  SUPPLY  IMPORT  SupplyObj; 

FROM  FUELPT  IMPORT  FuelpointObj; 

FROM  UNITS  IMPORT  UnitsObj; 

FROM  CREATE  IMPORT  CreateMotorpool,  CreateMaintenance,  CreateSupply, 

CreateFuelpoint,  CreateUnits,  CreateSupplySources; 

{ - } 

PROCEDURE  CraateTransSystem(OUT  Network  :  NetworkObj); 

{ - } 

VAR 

i  :  INTEGER. 

NodeSHRec  :  SHierRecType; 

BEGIN 

NEW(Network); 

CieateNetwork  (Network); 

END  PROCEDURE  {CreateTransSystem}; 

{ - } 

PROCEDURE  CieateNetwork  (IN  Network  :  NetworkObj); 

{ - } 

VAR 

i  ;  INTEGER; 

Node  :  NodeObj; 

NodeSHRec  :  SHierRecType; 

MasterRouteList  :  RouteTypeQueue; 

MasterNodeList  :  NodeTypeQueue; 

BEGIN 
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{ - Creating  Node* - } 

FOR  i  1  TO  HIGH(NodeSH Array) 

NEW(Nod«); 

ASK  Node  TO  OetName<NodeSHArrey[i). TopString); 

ASK  Node  TO  OetClearancei; 

FindSHRec(NodeSHArray,  ASK  Node  name,  NodeSHRec); 

ASK  Node  TO  GetReatrictiona  (NodeSHRec); 

CreateAttachedUnita(Node,  NodeSHRec); 

ASK  Network.NodeLiat  TO  Add  (Node); 

CraateUnke(ASK  Node  name,  Network.LinkList); 

END  FOR; 

NEW(MaaterRouteLiit) ; 

FOR  i  :=  1  TO  HIGH(NodeSHArrey) 

CreateRoutea(NodeSHArray[i]  .TopString,  Network,  MaaterRouteUst); 

END  FOR; 

{Give  each  Motorpool  a  copy  of  the  Maater  Lista} 

NEW(MaaterNodeLiat); 

MaaterNodeLiat  :=  Network. NodeLi at; 

Node  :*  ASK  Network.NodeLiat FiratO; 

REPEAT 

IF(Node.myMotorpool  <  >  NILOBJ) 

ASK  Node.myMotorpool  TO  GetMasterLiata  (MaaterRouteLiat,  MaaterNodeLiat); 

END  IF; 

Node  :*  ASK  Network.NodeLiat  Next(Node); 

UNTIL  (Node  *  NILOBJ); 

Node  :  =  ASK  Network.NodeLiat  FiratO; 

REPEAT 

IF(Node.mySupply  <  >  NILOBJ) 

CreateSupplySourcea(Node.mySuppIy,  Network); 

END  IF; 

Node  :«  ASK  Network.NodeLiat  Next  (Node); 

UNTIL  (Node  =  NILOBJ); 

END  PROCEDURE  {CreateNetwork}; 

{ - } 

PROCEDURE  CraateAttachedUnita  (IN  Node  :  NodeObj; 

IN  NodeSHRec  :  SHierRecType); 

{ - > 

VAR 

i  ;  INTEGER; 

Motorpool  :  MotorpoolObj; 

Maintenance :  MaintenanceObj; 

Supply  ;  SupplyObj; 

Fuelpoint :  FuetpointObj; 

Unit!  :  UnitaObj; 

MotorpoolName,  MaintenanceName,  SupplyName,  FuelpointName  ,  UnitaName  :  STRING; 

BEGIN 

IF  (NodeSHRec  «  NILREC) 

FindSHRec  (NodeSHArray,  ASK  Node  name,  NodeSHRec); 

END  IF; 

CreateMotorpool(ASK  Node  name,  NodeSHRec,  Motorpool); 

ASK  Node  TO  GetMotorpool(Motorpool); 

CreateMaintenance( ASK  Node  name,  NodeSHRec,  Maintenance); 

IF((MotorpocI  <  >  NILOBJ)  AND  (Maintenance  <  >  NILOBJ;) 

ASK  Maintenance  TO  GetMyMotorpool(Motorpool); 

END  IF; 

ASK  Node  TO  GetMaintenance(Mairtenance); 

CreateSupply(ASK  Node  name,  NodeSHRec,  Supply); 
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ASK  Node  TO  GecSupply (Supply); 


CreateFuelpoint(ASK  Node  name,  NodeSHRec,  Fuelpoint); 

ASK  Node  TO  OetFuelpoint(Fuelpoint); 

CreateUnit*(ASK  Node  name,  NodeSHRec,  Units); 

ASK  Node  TO  GetUnh»(Uniti); 

DF(Motorpool  <  >  NILOBJ) 

ASK  Supply  TO  GetMyMotorpool(Motorpool); 

END  IF; 

EF(Supply  <  >  NILOBJ) 

ASK  Unite  TO  OetMySupply(Supply); 

END  IF; 

END  PROCEDURE  {CreateAttached Unite}; 

END  {IMPLEMENTATION}  MODULE  {create*}. 

{*******************************************************} 

DEFINITION  MODULE  CREATE; 

{Each  node’*  motoipoole,  maintenance  facilities,  supply  points,  luelpoints,  units,  and  each  supply  point’s  supply  source  are  created 
here} 

FROM  ROLOBAL  IMPORT  SHierRecType; 

FROM  NODE  IMPORT  NodeObj; 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  MAINT  IMPORT  MaintenanceObj; 

FROM  SUPPLY  IMPORT  SupplyObj; 

FROM  FUELPT  IMPORT  FuelpointObj; 

FROM  UNITS  IMPORT  UnitsObj; 

FROM  NETWORK  IMPORT  NetworkObj; 

PROCEDURE  CrealeMotorpool  (IN  name  :  STRING; 

IN  NodeSHRec  :  SHierRecType; 

OUT  Motorpool  :  MotorpoolObj); 

PROCEDURE  CreateMaintenance  (IN  name  :  STRING; 

IN  NodeSHRec  :  SHierRecType; 

OUT  Maintenance :  MaintenanceObj); 

PROCEDURE  CreateSupply  (IN  name  ;  STRING; 

IN  NodeSHRec :  SHierRecType; 

OUT  Supply  :  SupplyObj); 

PROCEDURE  CreateFuelpoint  (IN  name  :  STRING; 

IN  NodeSHRec ;  SHierRecType; 

OUT  Fuelpoint :  FuelpointObj); 

PROCEDURE  CreateUnit*  (IN  name  :  STRING; 

IN  NodeSHRec :  SHierRecType; 

OUT  Unit*  :  UnitsObj); 

PROCEDURE  CreateSupplySources (IN  Supply  :  SupplyObj; 

IN  Network  :  NetworkObj); 

END  {DEFINmON}  MODULE  {create}. 

IMPLEMENTATION  MODULE  CREATE; 

FROM  Debug  IMPORT  TraceStream; 

FROM  ROLOBAL  IMPORT  SHierRecType,  NodeSHArray,  MotorpoolSHArray,  MeintenanceSHArray,  SupplySHArray, 
FuelpointSHArray,  UnhsSHArray,  SupplySourceSHArray; 

FROM  NODE  IMPORT  NodeObj  , 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  MAINT  IMPORT  MaintenanceObj; 
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FROM  SUPPLY  IMPORT  SupplyObj; 
FROM  FUELPT  IMPORT  FuelpointObj; 
FROM  UNITS  IMPORT  UniuObj; 

FROM  FINDSH  IMPORT  Finds  HR  ec; 
FROM  NETWORK  IMPORT  NetworkObj; 


{ - - - } 

PROCEDURE  CreateMotorpool  (IN  name  :  STRING; 

IN  NodeSHRec  :  SHieiRecType; 
OUT  Motorpool  :  MotorpoolObj); 

{ - » 

VAR 

i  :  INTEGER; 

MotorpoolName :  STRING; 

BEGIN 

i  :»  1; 

WHILE  ((NodeSHRec.OwnedStringtil  <  >  "M")  AND 
(NodeSHRec.OwnedStringtil  <  >  "\\")) 

INCCO; 

END  WHILE; 

INC®; 

REPEAT 

MotorpoolName  ;=  NodeSHRec.OwnedStringtil; 
NEW(Motorpool); 

ASK  Motorpool  TO  Objlnit; 

ASK  Motorpool  TO  GetName  (MotorpoolName); 
ASK  Motorpool  TO  GetFielda(name); 

ASK  Motorpool  TO  GetAsaeti  (name); 

INCCO; 

UNTIL  (Cl  >  HIGH(NodeSHRec.OwnedString))  OR 
(NodeSHRec.OwnedStringtil  =  "\\")  OR 
(NodeSHRec.OwnedStringtil  =  ”MA")); 

END  PROCEDURE  {CreateMotorpool}; 


PROCEDURE  CreateMaintenance  (IN  Dime  :  STRING; 

IN  NodeSHRec :  SHierRecType; 

OUT  Maintenance  :  MaintenanceObj); 

{ - > 

VAR 

i  :  INTEGER; 

Maintenance  Name :  STRING; 

BEGIN 

i  :=  1; 

WHILE  ((NodeSHRec.OwnedStringtil  <  >  "MA")  AND 
(NodeSHRec.OwnedStringtil  <  >  *\\’)) 

INC®; 

END  WHILE; 

INCCO; 

REPEAT 

MaintenanceName :  ~  NodeSHRec.OwnedString[i); 
NEW(M*intenance); 

ASK  Maintenance  TO  OetName  (MaintenanceName); 
{ASK  Maintenance  TO  GetFielda(name);} 

INC®; 

UNTIL  (0  >  HIGH(NodeSHRec  .OwnedString))  OR 
(NodeSHRec.OwnedStringtil  =  "W")  OR 
(NodeSHRec.OwnedStringtil  =  "S’)); 

END  PROCEDURE  {CreateMaintenance}; 

{ - ) 
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PROCEDURE  CraateSuppIy  (IN  name  :  STRING; 

IN  NodeSHRec  :  SHierRecType; 
OUT  Supply  :  SupplyObj); 

{ - } 

VAR 

i  :  INTEGER; 

SupplyName  :  STRING; 

BEGIN 
i:«  1; 

WHILE  ((NodeSHRec .OwnedStringli]  <  >  ’S')  AND 
(NodeSHRec. OwnedStringli]  <  >  *\\’» 

INC®; 

END  WHILE; 

INC©; 

REPEAT 

SupplyName  :  =  NodeSHRec  .OwnedStringli] ; 
NEW(Supply); 

ASK  Supply  TO  GetName  (SupplyName); 

ASK  Supply  TO  Ge(Fieldi(name); 

INC©; 

UNTIL  ((i  >  HIGH  (NodeSHRec  .OwnedString))  OR 
(NodeSHRec. OwnedStringli]  =  *W)  OR 
(NodeSHRec  .OwnedStringli]  «  *F’)); 

END  PROCEDURE  {CreateSupply}; 

{ - } 

PROCEDURE  CreateFuelpoint  (IN  name  :  STRING; 

IN  NodeSHRec  :  SHierRecType; 
OUT  Fuelpoint :  FuelpointObj); 

{ - } 

VAR 

i  :  INTEGER; 

FuelpointName :  STRING; 

BEGIN 

i  :»  1; 

WHILE  ((NodeSHRec.OwnedString[i]  <  >  *F*)  AND 
(NodeSHRec  .OwnedString©  <  >  *\\*)) 

INC©; 

END  WHILE; 

INC©; 

REPEAT 

FuelpointName  :  =  NodeSHRec. OwnedStringli]; 
NEW(Fuelpoint); 

ASK  Fuelpoint  TO  GetName  (FuelpointName); 
ASK  Fuelpoint  TO  GetFielde(name); 

INCO); 

UNTIL  ((i  >  HIGH(NodeSHRec. OwnedString))  OR 
(NodeSHRec. OwnedStringli]  =  *\\*)  OR 
(NodeSHRec. OwnedStringli]  *=  *U”)); 

END  PROCEDURE  {CreateFuelpoint}; 

{ - } 

PROCEDURE  CreateUnita  (IN  name  :  STRING; 

IN  NodeSHRec  ;  SHierRecType; 
OUT  Unite  :  UniteObj); 

{ - } 

VAR 

i  :  INTEGER; 

UnitaName  :  STRING; 

BEGIN 
i  1; 


WHILE  ((NodeSHRec.OwnedString[i]  <  >  "IT)  AND 
(NodeS  HRec.OwnedString[i]  <  >  *\\*)) 

INC®; 

END  WHILE; 

INC®; 

REPEAT 

UoitsName  :=  NodeSHRec.OwnedStri.igfi}; 

NEW(Units); 

ASK  Unit*  TO  OetNime  (UnitiNime); 

ASK  Unit*  TO  GetField*(n*me); 

INC®; 

UNTIL®  >  HIQH(NodeSHRec.OwnedString)) OR 
(NodeS  HR  ec.OwnedString[i]  =  *\\’)  OR 
(NodeSHRec.OwnedString®  =  ’EOF’)); 

END  PROCEDURE  {^eateUnits}; 

{ - } 

PROCEDURE  CreateSuppIySources  (IN  Supply  :  SupplyObj; 

IN  Network  :  NetworkObj); 

{ - } 

VAR 

i  :  INTEGER; 
source  :  STRING; 

Node :  NodeObj; 

Supply SourceS HRec  :  SHierRecType; 

■ourceFound :  BOOLEAN; 

BEGIN 

■ourceFound  :■  FALSE; 

FindS HRec(SupplySourceSHArr*y,  ASK  Supply  name,  SupplySourceSHRec); 
source  :=  SupplySourceSHRec.OwnedString[l); 

{Find  (be  source  SupplyObj  that  belongs  to  the  node} 

Node  :=  ASK  Network. NodeList  FirstO; 

REPEAT 

IF(source  =  Node.  mySupply.  name) 

ASK  Supply  TO  GetSupplySource  (Node.mySupply); 

■ourceFound :  =  TRUE; 

ELSE 

Node  :  =  ASK  Network.NodeList  Next  (Node); 

END  IF; 

UNTIL  ((Node=NILOBI)  OR  (sourceFound)); 

END  PROCEDURE  {CreateSupplySources}; 

END  {IMPLEMENTATION}  MODULE  {create}. 

DEFINITION  MODULE  CREATE  A; 

{This  procedure  create*  each  asset  for  a  motorpool,  by  giving  it  a  name  and  all  fields  that  necessary} 
FROM  ASSET  IMPORT  AssetObj; 

PROCEDURE  CreateAsset  (IN  VehicleType  :  STRING; 

IN  model  :  STRING; 

IN  i  :  INTEGER; 

IN  Unit  :  STRING; 

INOUT  asset  :  AssetObj); 

END  {DEFINITION}  MODULE  {creates}. 

IMPLEMENTATION  MODULE  CREATE  A; 

FROM  Debug  IMPORT  TraceS tream; 

FROM  RGLOBAL  IMPORT  SHierRecType,  AssetFieldsSHArray; 
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FROM  ASSET  IMPORT  AssetObj; 
FROM  FINDS  H  IMPORT  Finds  HRec; 


{ - } 

PROCEDURE  CreateAsset  (IN  VefaicIeType  :  STRING; 

IN  model  :  STRING; 

IN  k  :  INTEGER; 

IN  Unit :  STRING; 

INOUT  Auet  :  AssetObj); 

{ - } 

VAR 

i  ;  INTEGER; 

AssetFieldsSHRec :  SHierRecType; 

BEGIN 

FindSHRec(A*MtFieldiSHAmy,  VehicleType,  AssetFieldsSHRec); 
i  1; 

WHILE  ((AssetFieldsSHRec.OwnedString[i]  <  >  model)  AND 
(AssctFieldsSHRec.OwnedString[i]  <  >  *\\*)) 

INC©; 

END  WHILE; 

ASK  Auet  TO  GetName(model,  k,  Unit); 

ASK  Auet  TO  GetFields(AssetFieldsSHRec); 

END  PROCEDURE  {Create Auet}; 

END  {IMPLEMENTATION}  MODULE  {creates}. 

DEFINITION  MODULE  NODE; 

{Fielda  and  methods  of  a  node  are  defined  here.  A  procedure  that  finds  a  node  given  its  name  is  included} 
FROM  GrpMod  IMPORT  QueueObj; 

FROM  ResMod  IMPORT  ResourceObj; 

FROM  GLOBAL  IMPORT  NodeNameType.CargoTypeQueue.AssetTypeQueue,  NodeTypeQueue; 
FROM  RGLOBAL  IMPORT  SHierRecType; 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  MAINT  IMPORT  MaintenanceObj; 

FROM  SUPPLY  IMPORT  SupplyObj; 

FROM  FUELPT  IMPORT  FuelpointObj; 

FROM  UNITS  IMPORT  UnitsObj; 

EXPORTTYPE 

NodeObj  -  OBJECT;  FORWARD; 

TYPE 

Clearance  *  ResourceObj; 

DeadlinedQueue  *  QueueObj; 

DeadlinePointObj  =  OBJECT 
recoverer  :  STRING; 

AssetQueue  :  AssetTypeQueue; 

ASK  METHOD  Objtnit; 

ASK  METHOD  GetRecoverer  (IN  name  :  STRING); 

END  OBJECT; 

NodeObj  -  OBJECT 

name  ;  NodeNameType; 
fuel  Level  :  REAL; 
ftielCap  ;  REAL; 
fueiReaerve :  REAL; 
loadTime  :  REAL; 
unloadTime  :  REAL; 
myMotorpool :  MotorpoolObj; 
myMaintenance :  MaintenanceObj; 
mySupply  ;  SupplyCSj; 
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myFuelpoint :  FuelpointObj; 
my  Units  :  UnitsObj; 

deadlinePointQueue  :  Deadlined  Queue;  {location  of  any  NMC  assets} 
clearance  :  Clearance;  {authority  and  right  of  passage  thru  node} 
maxMilea Allowed  :  REAL;  {at  destin,  miles  before  mandatory  standwn} 

maxOpHours Allowed  :  REAL;  {same,  but  in  operating  hours} 
stand DownTime  :  REAL;  {hours  standown  before  convoy  can  leave} 
milesBeforeBreak  :  REAL;  {any  node,  cept  destin,  max  miles  before  bk} 
breakTime  :  REAL;  {hours  for  breaktime,  before  proceeding} 
dayToStart :  INTEGER;  {day  activities  start  at  node} 
dayToEnd  ;  INTEGER;  {day  activities  end  at  node} 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

ASK  METHOD  QetRestrictions  (IN  NodeSHRec  :  SHierRecType); 

ASK  METHOD  GetMotorpool  (IN  Motorpool  :  MotorpoolObj); 

ASK  METHOD  GetMaintenance  (IN  Maintenance  :  MaintenanceObj); 

ASK  METHOD  GetSupply  (IN  Supply  :  SupplyObj); 

ASK  METHOD  GetFuelpoint  (IN  Fuelpoint :  FuelpointObj); 

ASK  METHOD  GetUnits  (IN  Units  :  UnitsObj); 

ASK  METHOD  GetClearances; 

END  OBJECT  {node}; 

{ - } 

PROCEDURE  FindNode  (IN  nodeNsme  :  STRING; 

IN  NodeList :  NodeTypeQueue; 

OUT  Node  :  NodeObj); 

{ - } 

END  {DEFINITION}  MODULE  {node}. 

IMPLEMENTATION  MODULE  NODE, 

FROM  GLOBAL  IMPORT  NodeNameType.CargoTypeQueue,  NodeTypeQueue; 
FROM  RGLOBAL  IMPORT  SHierRecType; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  MOTORPL  IMPORT  MotoipoolObj; 

FROM  MAINT  IMPORT  MaintenanceObj; 

FROM  SUPPLY  IMPORT  SupplyObj; 

FROM  FUELFT  IMPORT  FuelpointObj; 

FROM  UNITS  IMPORT  UnitsObj; 

FROM  Debug  IMPORT  TraceStream; 

OBJECT  DeadlinePointObj; 

{ - } 

ASK  METHOD  Objlnit; 

{ - > 

BEGIN 

NEW(AssetQueue); 

END  METHOD  {Oojlnit}; 

{ - } 

ASK  METHOD  GetRecoverer  (IN  Name  :  STRING); 

{ - } 

BEGIN 

recoverer  ;  <■  Name; 

END  METHOD  {GetRecoverer}; 

END  OBJECT  {DeadlinePoint} ; 


OBJECT  NodeObj; 
{ - } 
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ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(deadlinePointQueue) ; 

NEW(clea  ranee); 

END  METHOD  {Objlnit}; 

{ - ) 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

{ - } 

BEGIN 

name  :»  MyName; 

END  METHOD  {GetName}; 

{ - } 

ASK  METHOD  GetReetrictiom  (IN  NodeS HR ec  :  SHierRecType); 

{ - ) 

BEGIN 

maxMilea Allowed  :  =  STRTOR£AL(NodeSHRec.OwnedString[l]); 
maxOpHoura  Allowed  :=  TTRTOREAL  (NodeS  HR  ec.OwnedString[2]); 
atandDownTime  :=  STRTOREAL  (NodeSHRec.OwnedString[3]); 
mileaBeforeBreak  :=  STRTOREAL  (NodeS HR ec.OwnedString[4]); 
breakTime  :  =  STRTOREAL  (NodeSHRec.OwnedString[5]); 
dayToStart  :=  STRTOINT  (NodeSHRec.OwnedString[6}>; 
dayToEnd  :=  STRTOINT  (NodeSHRec.OwnedString[7]); 

END  METHOD  {GetReatrictiona}; 

{ - } 

ASK  METHOD  GetMotorpool  (IN  Motorpool  :  MotorpoolObj); 

{ - } 

BEGIN 

myMotorpool :  =  Motorpool; 

END  METHOD  {GetMotorpool}; 

{ - } 

ASK  METHOD  GetMaintenance  (IN  Maintenance  :  MaintenanceObj); 

{ - ) 

BEGIN 

myMaintenance  :=  Maintenance; 

END  METHOD  {GetMaintenance}; 

{ - } 

ASK  METHOD  GetSupply  (IN  Supply  :  SupplyObj); 

( - } 

BEGIN 

mySupply  :  =  Supply; 

END  METHOD  {GetSupply}; 

{ - } 

ASK  METHOD  GetFuelpoint  (IN  Fuelpoint :  FuelpointObj); 

{ - } 

BEGIN 

myFuelpoint : «  Fuelpoint; 

END  METHOD  {GetFuelpoint}; 

{ - } 

ASK  METHOD  GetUnita  (IN  UniU  :  UnitaObj); 

{ - } 

BEGIN 

myUnita  :=  Unit*; 

END  METHOD  {GetUniU}; 
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{ - } 

ASK  METHOD  GetClearsnces; 

{ - } 

BEGIN 

NEW(clearence); 

ASK  clearance  TO  Cieete(l); 

END  METHOD  {GetCleerance*}; 

END  OBJECT  {Node}; 

{ - } 

PROCEDURE  FindNode  (IN  nodeName  :  STRING; 

IN  NodeLitt :  NodeTypeQueoe; 

OUT  Node  :  NodeObj); 

{ - } 

VAR 

foundNode :  BOOLEAN; 

BEGIN 

foundNode  :  =  FALSE; 

Node  :=  ASK  NodeUat  Fint  0; 

REPEAT 

IF  (nodeName  =  (ASK  Node  name)) 
foundNode  :=  TRUE; 

ELSE 

Node  :=  ASK  NodeList  Next  (Node); 

END  IF; 

UNTIL  <(Node=NILOBJ)  OR  (foundNode)); 

END  PROCEDURE  {FindNode}; 

END  {IMPLEMENTATION}  MODULE  {node}. 

{....,.„*..ee.eee„«..ee..e..eee.*.*.ee"eee,*e,.«*..*e.e,.} 

DEFINITION  MODULE  ROUTE; 

{Everything  aaaociated  with  a  route  are  defined  here.  Links,  routes,  creating  them  and  finding  them  are  included.} 
FROM  GLOBAL  IMPORT  NodeNtmeType.LinkTypeQueue,  rosdCharact,  RouteTypeQueue; 

FROM  RGLOBAL  IMPORT  SHierRecType, 

FROM  NETWORK  IMPORT  NetworkObj; 

TYPE 

LinkObj  =  OBJECT 

origin  :  NodeNameType; 
destin  :  NodeNameType; 
distance :  REAL; 
thruput  :  REAL; 

roadSurface,  terrain  :  roadCharact; 

ASK  METHOD  GetFields(IN  Links HRec  :  SHierRecType; 

INOUT  i  :  INTEGER); 

ASK  METHOD  CopyFields(IN  link  :  LinkObj); 

END  OBJECT  {Link}; 

RouteObj  m  OBJECT 

origin  :  NodeNameType; 
destin  :  NodeNameType; 

LinkRoute  :  LinkTy^  eQueue; 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetFields(IN  origin  :  STRING; 

IN  destin  :  STRING); 

END  OBJECT  {Route}; 
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PROCEDURE  CreateLinks  (IN  same  :  STRING; 

IN  LinkList :  LinkTypeQueue) ; 

PROCEDURE  Find  Link  (IN  origin  :  STRING; 

IN  destin  :  STRING; 

IN  UnkLiit :  LinkTypeQueue; 

OUT  link  ;  LinkObj); 

PROCEDURE  CreateRoutes  (IN  name  :  STRING; 

IN  Network  ;  NetworkObj; 

IN  OUT  MasterRouteLiat  :  RouteTypeQueue); 

END  {DEFINITION}  MODULE  {route}. 

IMPLEMENTATION  MODULE  ROUTE; 

FROM  Debug  IMPORT  TraceStream; 

FROM  GLOBAL  IMPORT  NodeNimeType,  ALL  roadCharact,  LinkTypeQueue,  RouteTypeQueu 
FROM  RGLOBAL  IMPORT  SHierRecType,  NodeSHArray,  LinkSHArray,  RouteSHAmy; 
FROM  NODE  IMPORT  NodeObj; 

FROM  FINDSH  IMPORT  FindSHRec; 

FROM  NETWORK  IMPORT  NetworkObj; 

OBJECT  LinkObj; 

( - } 

ASK  METHOD  GctFields(IN  LinkSHRec  :  SHierRecType; 

INOUT  i  ;  INTEGER); 

{ - } 

BEGIN 

origin  ;=  LinkSHRec .TopString; 
d  eat  in  :=  (LinkSHRec  .OwnedString(ij); 

INCCi); 

distance  :=  STRTOREAL(LinkSHRec.OwnedString[i]); 

INC(i); 

CASE  (Links HRec.OwnedString(iJ) 

WHEN  ’concrete”:  roadSurface  :=  concrete; 

WHEN  ’bituminous*:  roadSurface  :  =  bituminous; 

WHEN  "gravel":  roadSurface  :=  gravel; 

WHEN  ’dirt":  roadSurface  :=  dirt; 

OTHERWISE 

roadSurface  :=concrete; 

END  CASE; 

INC(i); 

CASE  (LinkSHRec  .OwnedString[i]) 

WHEN  "flat":  terrain  :=  flat; 

WHEN  ’roIlingHills’:  terrain  :—  rollingHills; 

WHEN  ’hillsCurvet":  terrain  :=  hillsCurves; 

WHEN  ’mountainous"  rterrain  :=  mountainous; 

OTHERWISE 

terrain  :■*  flat; 

END  CASE; 

END  METHOD  {GetFields}; 

{ - } 

ASK  METHOD  CopyFields(IN  Link  :  LinkObj); 

< - } 

BEGIN 

origin  ;=  Link. origin; 
deatin  :»  Link.destin; 
distance  :  ■=  Link. distance; 
roadSurface  : «  Link. roadSurface; 
terrain  :-  Link. terrain; 

END  METHOD  {CopyFields}; 
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END  OBJECT  {LinkObj}; 


OBJECT  RouteObj; 

{ - ) 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(LinkRoute); 

END  METHOD  {Objlnit}; 

{ - } 

ASK  METHOD  GetField«(IN  Mart  :  STRING; 
IN  and  :  STRING); 

{ - } 

BEGIN 

origin  Mart; 
destin  :■  and; 

END  METHOD  {GetFialda}; 


END  OBJECT  {RouteObj}; 

{ - } 

PROCEDURE  CreateLinki  (IN  name  :  STRING; 

IN  LinkLut :  LinkTypeQueue); 

{ - } 

VAR 

i ;  INTEGER; 

Link  :  LinkObj; 

LinkS HR ec  :  SHierRecType; 

BEGIN 
i  :■  1; 

FindSHRec(LinkSHArr»y,  name,  LinkSHRec); 

REPEAT 

NEW(Link); 

ASK  Link  TO  GetField«(LinkSHRec,i); 

ASK  UnkLiat  TO  Add  (Link); 

INCf.); 

UNTIL(Ci  >  HIGH(LinkSHRac.OwnedString))  OR  (LinkSHRec  .OwnedStringfi]  =  *W)) 
END  PROCEDURE  {CraataLinka}; 

{ - } 

PROCEDURE  FindUnk  (IN  Mart :  STRING; 

IN  and  :  STRING; 

IN  LinkLirt  :  LinkTypeQueue; 

OUT  rightLink  :  LinkObj); 

{ - } 

VAR 

link  :  LinkObj; 
linkFound  :  BOOLEAN; 

BEGIN 

NEW(rightLink); 

link  ASK  UnkLiat  FintO; 

REPEAT 

IF((ASK  link  origin  ■>  Mart)  AND  (ASK  link  dettin  =  end)) 

ASK  rightLink  TO  CopyFialda  (link); 
linkFound  :**  TRUE; 

ELSE 

link  :•  ASK  LinkUM  Next(link); 

END  IF; 

UNTIL((linkFound)OR  (link-NILOBI)); 

END  PROCEDURE  {Find Link}; 
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{ - } 

PROCEDURE  CreateRoutes  (IN  name  :  STRING; 

IN  Network  :  NetworkObj; 

INOUT  MasterRouteList  :  RouteTypeQueue); 

{ - } 

VAR 

i  :  INTEGER; 
link  :  LinkObj; 

Route  :  RouteObj; 

RoutaS HRec  :  SHierRecType; 
origin,  deetin  :  STRING; 

(tart,  end  :  STRING; 

BEGIN 

FindSHRec(RouteSHArray,  name,  RouteSHRec); 

i  :*  1; 

IF  (HIGH(RouteSHRec.OwnedString)  <  2) 

ASK  TraceStream  TO  WriteS tring("No  routes  for  node*  +  name); 

ELSE 

REPEAT 

NEW(Route); 

ASK  Route  TO  Objlnit; 

origin  :  =  RouteS HR ec.OwnedStringfi); 

start  :=  origin; 

INC©; 

end  RouteSHRec .OwnedString(i]; 

REPEAT 

Find  Link(stsrt,end,  Network. LinkList,  link); 

ASK  Route . LinkRoute  TO  Add  (link); 
start  end; 

INC©; 

end  :*=  RouteSHRec. OwnedStringfiJ; 

IF((end  -  origin)  OR  (end  =  "EOF")) 

destin  :=  RouteSHRec. OwnedStringli-1]; 

ASK  Route  TO  GetFields(origin,destin); 

END  IF; 

UNTIL((end  -  origin)  OR  (end  *  "EOF")); 

ASK  MasterRouteList  TO  Add  (Route); 

UNTIL(end  “  ’EOF*); 

END  IF; 

END  PROCEDURE  {CreateRoutes}, 

END  {IMPLEMENTATION}  MODULE  {route}. 

{„..,„.**..,*...****..*.**....***i  *******♦********************} 

DEFINITION  MODULE  ASSET; 

{Module  contains  the  methods  and  fields  dial  describe  an  asset  within  ITTSS .  Vehicle  objects  inherent  the  methods  and  fields  from 
the  general  asset  object.  Specific  vehicle  objects  are  further  defined} 

FROM  GrpMod  IMPORT  QueueObj; 

FROM  GLOBAL  IMPORT  DescriptType,  Dimensions,  LinkTypeQueue,  AssetTypeQueue,  CargoTypeQueue,  ALL  roadCharact, 
Assets tatus,  FaiTType; 

FROM  RGLOBAL  IMPORT  SHierRecType; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  ROUTE  IMPORT  LinkObj; 

FROM  RandMod  IMPORT  RandomObj; 

EXPORTTYPE 

AssetObj  -  OBJECT;  FORWARD; 

TYPE 

dimensionsObj  «  OBJECT  {Dimensions  for  stowage  of  cargo} 
height. 
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length, 

width, 

cubeFt, 

weight  :  REAL;  {vehicle,  cepecity} 

ASK  METHOD  GetFields(IN  Height :  REAL; 

IN  Length  :  REAL; 

IN  Width  :  REAL; 

IN  CubeFt :  REAL; 

IN  Weight ;  REAL); 

ASK  METHOD  AdjustDimensions(IN  Height ;  REAL; 

IN  Length  :  REAL; 

IN  Width  :  REAL; 

IN  CubeFt :  REAL; 

IN  Weight :  REAL); 

ASK  METHOD  UpdeteLoedWeight(IN  weight :  REAL); 

ASK  METHOD  UpdateLengthLoed(IN  length  :  REAL); 

ASK  METHOD  OetBigVelue; 

ASK  METHOD  GetSmallValue; 

END  OBJECT  {ditneniioneObj} ; 

rate*  “  ARRAY  roadCharact  OF  ARRAY  roadCharact  OF  REAL; 

AaaetObj  =*  OBJECT 

home  :  STRING; 

MyMotoipool  :  STRING; 

model, 

description, 

bumperNumber :  DeacriptType; 
type  :  STRING; 
vehType :  STRING; 
rateOfT ravel  :  rates; 

fuelCsp, 

fuel  Level,  {Current  fuel  level  of  vehicle} 

fuelConaump,  {Fuel  consumption  rate} 

fiielGuage,  {Guage  level  of  fuel,  1/2,  etc} 

fiielReaerve, 

odometer, 

tripOdometer, 

engHra, 

aaaetWeight  :  REAL; 
asset  Length  :  REAL; 

maintManHoura :  REAL; 
adminLogTime :  REAL; 

aaaetDimena  :  dimenaionaObj;  {Cargo  dimensions  of  vehicle} 

loadDimens :  dimensionsObj; 

missionCapable :  BOOLEAN; 

tempFix  :  BOOLEAN; 

status  :  AssctStatus; 

loadCap  :  REAL; 

cargoHold  :  CatgoTypeQueue; 

milesToFail  :  REAL; 

FailureVariateStream  :  RandomObj; 

MMBF  :  FailType; 

ASK  METHOD  Objlnit; 

ASK  METHOD  ObjTerminate; 

TELL  METHOD  LoadCargo  (IN  cargo  :  CargoObj); 

TELL  METHOD  UnloadCaigo  (IN  weight  :  REAL; 

IN  length  :  REAL); 

ASK  METHOD  Refuel  (OUT  fuelUaed  :  REAL); 
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ASK  METHOD  GetBigVaiue; 

ASK  METHOD  OetSmallValue; 

ASK  METHOD  UpdateGuage*  (IN  Link  :  LinkObj); 

ASK  METHOD  GelNsme  (IN  NewNime  :  DescriptType; 

IN  i  :  INTEGER; 

IN  Unit :  STRING); 

ASK  METHOD  GetFieidi  (IN  AuetFieldiSHRec  ;  SHierRecType); 
ASK  METHOD  G«F»ilure(IN  AuetFieldiSHRec  :  SHierRecType); 
ASK  METHOD  CheckForBreakdown; 

ASK  METHOD  Break; 

ASK  METHOD  RetecOdomeCer, 

ASK  METHOD  RetecTripOdometer, 

ASK  METHOD  FixTemporarily; 

END  OBJECT  {aseet}; 

VehicleObj  «  OBJECT(AssetObj) 

END  OBJECT  {VehicleObj}; 

TruckObj  -  OBJECT(VehicleObj) 

END  OBJECT  {TruckObj}; 

TrecTHObj  «  OBJECT(VehicIeObj) 

END  OBJECT  {TrecTrlObj}; 

TrecLowBoyObj  =  OBJECT(VehicIeObj) 

END  OBJECT  {TrecLowBoyObj}; 

HettObj  -  OBJECT  (VehicleObj) 

END  OBJECT  {HettObj}; 


RecoveryObj  —  OBJECT(VehicIeObj) 

Recovery  Losd :  AuetTypeQueue; 
hookTime :  REAL; 

TELL  METHOD  HookUp(IN  brokenAuet :  AnetObj); 

TELL  METHOD  UnHook; 

OVERRIDE 

ASK  METHOD  Objlnit; 

END  OBJECT  {RecoveryObj}; 

VeuelObj  -  OBJECT(Aue»Obj) 

END  OBJECT;  {VeeeelObj} 

AirObj  —  OBJECT  ( AssetObj) 

END  OBJECT;  {AirObj} 

TreinObj  **  OBJECT (AssesObj) 

END  OBJECT;  {TreinObj} 

END  {DEFINITION}  MODULE  {asset} . 

IMPLEMENTATION  MODULE  ASSET; 

FROM  GrpMod  IMPORT  QueueObj; 

FROM  GLOBAL  IMPORT  HqNtmeType,  DescriptType,  Dimensions,  LinkTypeQueue, 
AuetTypeQueue,  CargoTypeQueue,  ALL  roadCharect,  AssetStatus; 

FROM  RGLOBAL  IMPORT  SHierRecType, AssetFieldiSHArrey.TravelRateaSHAmy; 
FROM  FINDSH  IMPORT  FindSHRec; 

FROM  CARGO  IMPORT  CsrgoObj; 

FROM  ROUTE  IMPORT  LinkObj; 

FROM  Debug  IMPORT  TraceStream; 

FROM  RandMod  IMPORT  RandomObj; 
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FROM  READSED  IMPORT  ReadSeed; 

OBJECT  dimensionsObj;  {Dimension*  for  itowige  of  c»rgo} 

{ - » 

ASK  METHOD  GetFieldsflN  Height :  REAL; 

IN  Ungth  :  REAL; 

IN  Width  :  REAL; 

IN  CubeFt :  REAL; 

IN  Weight :  REAL); 

{ - > 

BEGIN 

height  :■  Height; 
length  :  =  Length; 
width  :=  Width; 
cubeFt :  =  CubeFt; 
weight  :=  Weight; 

END  METHOD  {GetFields}; 

{ - - - > 

ASK  METHOD  Adju*tDimen*ion»(IN  Height :  REAL; 

IN  Length  ;  REAL; 

IN  Width  :  REAL; 

IN  CubeFt :  REAL; 

IN  Weight :  REAL); 

{ - — > 

BEGIN 

END  METHOD  {Adju«tDimen*ion»}; 


ASK  METHOD  Upd«teLo«dWeight(IN  Weight  :  REAL); 

{ - } 

BEGIN 

weight  :=  weight  +  Weight; 

END  METHOD  {UpdeteLoed Weight}; 


ASK  METHOD  Upd*teLengthLo*d(IN  Length  :  REAL); 

{ - 

BEGIN 

length  :=  length  +  Length; 

END  METHOD  {UpdeteLoedLength}, 

{ - ) 

ASK  METHOD  GetBigVelue; 

{ - } 

BEGIN 

weight  :*=  99999999999999.99; 
length  :«  99999999999999.99; 

END  METHOD  {GetBigVelue}; 

{ - } 

ASK  METHOD  GetSmellVelue; 

{ - } 

BEGIN 

weight :»  0.0; 
length  :*=  0.0; 

END  METHOD  {GetSmellVelue}; 

END  OBJECT  {dimension*}; 


OBJECT  AssetObj; 


{ - } 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW  (assetDimens) ; 

NEW(loadDimens); 

NEW(cargoHold); 

END  METHOD  {Objlnit}; 

{ - } 

ASK  METHOD  ObjTerminate; 

{ - > 

VAR 

cargo  :  CargoObj; 

BEGIN 

DISPOS  E(«  »  jelDi  mens) ; 

DISPOS  E(loadDimens); 

WHILE(ASK  cargoHold  numberln  >  0); 

cargo  :  =  ASK  cargoHold  TO  Remove  0i 
DISPOS  E(cargo); 

END  WHILE; 

DISPOSE(cargoHold); 

IF(MMBF  <  >  NILARRAY) 

DISPOSE(MMBF); 

END  IF; 

IF(FailureVariateStream  <  >  NILOBI); 

DISPOS  E(FailureVariateStream); 

END  IF; 

END  METHOD  {ObjTerminate}; 

{ - } 

ASK  METHOD  GetName  (IN  NewName  ;  DeacriptType; 

IN  i  :  INTEGER; 

IN  Unit  :  STRING); 

{ - ) 

BEGIN 

model  :=  NewName; 

bumperNumber  :=  ((ASK  SELF  model)  +  *  +  (Unit)  +  *_* 

home  :  =  Unit; 

END  METHOD  {GetName}; 

{ - } 

ASK  METHOD  GetFielda(IN  AasetFieldaSHRec  ;  SHierRecType); 

{ - } 

VAR 

Height,  Length,  Width,  CubeFt,  Weight  :  REAL; 

AaaetDimena  :  dimensionsObj; 

TravelRateaSHRec  :  SHierRecType; 
i,  j  :  INTEGER; 

Rate  :  REAL; 

roadSurface,  terrain  :  roadCharact; 

BEGIN 

NEW(AaaetDimena); 

DF  (AasetFieldaSHRec  «=  NILREC) 

ASK  TraceStream  TO  WriteStringCAasetFieldsSHRec  ia  NILREC 

ELSE 

vehType  :  =  AasetFieldaSHRec. TopString; 
i  :=  1; 

model  :  =  (AasetFieldaSHRec. OwnedStringli]); 

INCfi); 

type  :■  (AasetFieldaSHRec. OwnedStringli]); 


+  INTTOSTRCO); 
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INCO); 

fuelCap  :=  STRTOREAL(  AssetFieldsSHRec. OwnedString|i|); 

ENC(i); 

fuelConsump  :  =  STRTOREAL(AssetFieldsSHRec.OwnedStringii)); 

INCO); 

odometer  :  =  STRTOREALfAssetFieldsSHRec.OwnedStringli]); 

INCO); 

engHrt  :=  STRTOREAL(AssetFieldsSHRec.OwnedString(i]); 

INCO); 

assetWeight  :=  STRTOREAL(AssetFields5HRec.OwnedString|i]); 

INC(i); 

assetLength  :«  STRTOREAL(AssetFieldsSHRec.OwnedString]i]); 

INC(i); 

Height  STRTOREAL(AssetFieldsSHRec.OwnedSlring|i]); 
tNC(i); 

Length  :»  STRTOR£AL(AssetFieldsSHRec.OwnedString[i)); 

INC(i); 

Width  :=  STRTOREAL(A»»etField»SHRec.OwnedString[i|); 

INC(i); 

CubeFt  :=  STRTOREAL(AssetFieldsSHRec.OwnedString[i]); 

INCO); 

Weight  :=  STRTOREAL(AssetFieldsSHRec.OwnedString[i|); 

INCO); 

ASK  AstetDimeniTO  OetFields(Height,  Length,  Width,  CubeFt,  Weight); 
assetDimens  :«  AssetDimens; 

maintManHours  :=*  STRTOREAL(AssetFieldsSHRec.OwnedString[i]); 

INCO); 

tdminLogTime  :=  STRTOREAL(AisetFi»ldsSHRec.OwnedStringIi]); 

INCO); 

miuionCeptble :  «=  TRUE; 

NEW(FeilureVeri«teStream); 

ASK  FeilureVerieteStream  TO  SetSeed(Re«dSeedO); 

ASK  SELF  TO  GetFailure(AssetFieldsSHRec); 

{ - Getting  Retee  Of  Travel  for  tuet - } 

FindSHRec(TravelRateaSHArray,  model,  TravelRatesSHRec); 

NEW(rateOfTravel,  concrete. .dirt,  flit. .mountainous); 

j  I; 

FOR  roadSurface  : «  concrete  TO  dirt 

FOR  terrain  :«■  flat  TO  mountainous 

rateOfTravellroadSurface,  terrain]  :=  STRTOREAL  (TraveIRatesSHRec.OwnedString[j]); 

INC(j); 

END  FOR; 

END  FOR; 

END  IF; 

END  METHOD  {OetFields}; 

{ - > 

ASK  METHOD  GetFailure(IN  AssetFieldsSHRec  :  SHierRecType); 

{ - } 

VAR 

i  :  INTEGER; 

BEGIN 

IF  (AssetFieldsSHRec  -  NILREC) 

ASK  TraceStream  TO  WriteStringC  AssetFieldsSHRec  is  NILREC’); 

ELSE 

NEW  (MMBF,  1..1); 

MMBFIl)  :=  STRTOREALfAssetFieldsSHRec.OwnedStringl  16)); 
milesToFsil  ;=  ASK  FailureVariateStream  Exponential  (MMBF|1J); 

END  IF; 

END  METHOD  {GetFailure}; 
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X  f 

ASK  METHOD  CheckForBreakdown; 

{ - } 

BEGIN 

IF  (odometer  >  =  mileaToFail) 

mmionCapable  :  =  FALSE; 

END  IF; 

END  METHOD  {CheckForBreakdown}; 

{ - > 

ASK  METHOD  Break; 

{ - } 

BEGIN 

misaionCapable ;  =  FALSE; 

END  METHOD  {Break}; 

{ - } 

ASK  METHOD  ReaetOdometer; 

{ - } 

BEGIN 

odometer  :=  0.0; 
tripOdometer  :  =  0.0; 
tempFix  :=  FALSE; 

mileaToFail  :  *  ASK  FailureVariateStream  Exponential  (MMBF{  1  ]); 
END  METHOD  {ReaetOdometer}; 

{ - } 

ASK  METHOD  ReaetTripOdometer; 

{ - } 

BEGIN 

tripOdometer  :  *  0.0; 

END  METHOD  {ReaetTripOdometer}; 

{ - } 

ASK  METHOD  FixTemporarily; 

{ - } 

BEGIN 

tempFix  :  =  TRUE; 

END  METHOD  {FixTemporarily}; 

{ - } 

TELL  METHOD  LoadCargo  (IN  cargo  ;  CargoObj); 

{ - } 

BEGIN 

ASK  cargoHold  TO  Add  (cargo); 

END  METHOD  {LoadCargo}; 

{ - } 

TELL  METHOD  UnloadCargo  (IN  weight  ;  REAL; 

IN  length  ;  REAL); 

{ - > 

BEGIN 

ASK  loadDimeniTO  Update  Load  Weight  (-(weight)); 

ASK  loadDimeniTO  UpdateLengthLoad(-(length)); 

END  METHOD  {UnloadCargo}; 

{ - } 

ASK  METHOD  Refuel  (OUT  fuelUied  :  REAL); 

{ - } 

BEGIN 

fuelUwd  :  =  fuelCap  -  fuel  Level; 
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fuelLevel  :  =  fvelLevel  +  fuelUeed; 

END  METHOD  {Refuel}; 

{ - } 

ASK  METHOD  OetBigVelue; 

{ - } 

VAR 

AeeetDimene  :  dimeneioneObj; 

BEGIN 

NEW(  AeeetDimene) ; 

ASK  AeeetDimene  TO  OetBigVelue; 
euetDimetu  :  =  AuetDimeni; 

END  METHOD  {OetBigVelue} ; 

{ - } 

ASK  METHOD  OetSmellVelue; 

{ - } 

VAR 

AeeetDimene  :  dimeneioneObj; 

BEGIN 

NEW(AeeetDimene); 

ASK  AeeetDimene  TO  OetSmellVelue; 
eeectDimene  :  =  AeeetDimene; 

END  METHOD  {OetSmellVelue}; 

{ - } 

ASK  METHOD  UpdeteOuegee  (IN  Link  :  LinkObj); 

{ - } 

BEGIN 

odometer  :  -  odometer  +  ASK  Link  dietence; 
tripOd ometer  :  *  tripOdometer  +  ASK  Link  dietence; 
fiielLevel  :  =■  fuelLevel  -  (ASK  Link  dietence/fiielConeump); 
{engHre  :«  engHre  +  (ASK  Link  dietence/reteOfTrevel);} 
fuelOuege  :  =  fuelLevel/fuelCep; 

END  METHOD  {UpdeteOuegee}; 

END  OBI  EOT  {eeeet}; 

OBJECT  VehideObj; 

END  OBJECT  {VehideObj}; 

OBJECT  TruckObj; 

END  OBJECT  {TtuckObj}; 

OBJECT  TrecTrlObj; 

END  OBJECT  {TrecTrlObj}; 

OBJECT  TrecLowBoyObj; 

END  OBJECT  {TrecLowBoyObj}; 

OBJECT  HettObj; 

END  OBJECT  {HettObj}; 

OBJECT  RecoveryObj; 

{ - } 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(eeeetDimene) ; 

NEW(loedDimeni) ; 

NEW(cergoHold); 


NEW(RecoveryLoad); 

NEW(FailureV.  nsreStream); 

ASK  FailureVaristeStream  TO  SetSeed(ReadSeedO); 

END  METHOD  {Objlnit}; 

{ - } 

TELL  METHOD  hookUp  (IN  brokenAsset :  AasetObj); 

{ - } 

BEGIN 

ASK  Recovery  Load  TO  Add  (brokenAsset); 

WATT  DURATION  hookTime 
END  WAIT; 

END  METHOD  {HookUp}; 

{ - } 

TELL  METHOD  UnHook; 

{ - } 

BEGIN 

WATT  DURATION  hookTime 
END  WAIT; 

END  METHOD  {UnHook}; 

END  OBJECT  {RecoveryObj}; 

OBJECT  VeMelObj; 

END  OBJECT  {VesselObj}; 

OBJECT  AirObj; 

END  OBJECT  {AirObj}; 

OBJECT  TreinObj; 

END  OBJECT  {TreinObj}; 

END  {IMPLEMENTATION}  MODULE  {asset}. 

. . . . .«...} 

DEFINITION  MODULE  CARGO; 

{Methods  end  field*  for  cargo  that  ia  transported  within  ITTSS  are  defined  here} 

FROM  GLOBAL  IMPORT  HqNameType,  ModelNameType,  Dimensions,  SupplyClassType, 

DeacriptType,  DestinationType,  AssetTypeQueue,  CargoTypeQueue,  NodeNameType,  VehicleType; 

TYPE 

cargoList  *  CargoTypeQueue; 

CargoObj  =  OBJECT 

priority  :  REAL; 
height  :  REAL; 
width  :  REAL; 
length  :  REAL; 
cubeFt  :  REAL; 
weight  :  REAL; 

classOfSuppIy:  SupplyClassType; 
destination  :  STRING; 
origin  :  STRING; 

MOR  :  STRING  {VehicleType};  {Method  Of  Resupply} 
nonseparable :  BOOLEAN ; 

ASK  METHOD  DumpStatus, 

ASK  METHOD  SeparateCargo  (IN  max  ;  REAL; 

OUT  separatedCargo  :  CargoObj); 

ASK  METHOD  ChangeV'eight  (IN  max  ;  REAL); 


ASK  METHOD  OetSupplyFieldi  (IN  ClassOfSupply  :  STRING; 

IN  Weight :  REAL; 

IN  Length  :  REAL; 

IN  MOR  :  STRING; 

IN  Priority  :  REAL; 

IN  SepStatus :  BOOLEAN); 

ASK  METHOD  Adjust  (IN  Adjustment  :  REAL); 

END  OBJECT  {cargo}; 

END  {DEFINITION}  MODULE  {cargo}. 

IMPLEMENTATION  MODULE  CARGO; 

FROM  GLOBAL  IMPORT  HqNameType,  NodeNameType,  ModelNameType,  Dimensions, 

SuppIyClassType,  DeacriptType,  DestinationType,  AssetTypeQueue,  CargoTypeQueue; 

FROM  Debug  IMPORT  TraceStream; 

OBJECT  CargoObj; 

{ - } 

ASK  METHOD  SeparateCargo  (IN  max  :  REAL; 

OUT  scparatedCargo  :  CargoObj); 

{ - } 

VAR 

newWeight :  REAL; 

BEGIN 

NEW(separatedCargo); 

ASK  scparatedCargo  TO  GetSupplyFields(SELF.classOfSupply,max,  0.0,  SELF.MOR,  SELF.priority,  FALSE); 
newWeight  :  =  (ASK  SELF  weight)  -  max; 

ASK  SELF  TO  ChangeWeight(new Weight); 

END  METHOD  {SeparateCatgo}; 

{ - } 

ASK  METHOD  ChangeWeight  (IN  max  ;  REAL); 

{ - } 

BEGIN 

weight  :«  max; 

END  METHOD  {ChangeWeight}; 

{ - } 

ASK  METHOD  GetSupplyFields  (IN  class  ;  SuppIyClassType; 

IN  Weight  :  REAL; 

IN  Length  :  REAL; 

IN  method OfResupply  :  STRING; 

IN  PRIORITY  :  REAL; 

IN  SepStatus  :  BOOLEAN); 

{ - } 

BEGIN 

ClassOfSupply  ;  =  class; 
weight  :=  Weight; 
length  :=  Length; 

MOR  :=  method  OfResupply, 
priority  :«*  PRIORITY; 
nonseparable :«  SepStatus; 

END  METHOD  {GetSupplyFields}; 

{ - } 

ASK  METHOD  Adjust  (IN  Adjustment  :  REAL); 

{ - } 

BEGIN 

weight  :  *  weight  +  Adjustment; 

END  METHOD; 
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END  OBJECT  {cargo}; 

END  {IMPLEMENTATION}  MODULE  {cargo}. 

!*•*•* . . . } 

DEFINITION  MODULE  MOTORPL; 

{Fields  and  methods  of  a  motorpool  are  defined  here.  This  include  matching  cargo  to  assets,  scheduling  missions  and  conducting 
them} 

FROM  lOMod  IMPORT  StreamObj; 

FROM  GrpMod  IMPORT  QueueObj; 

FROM  GLOBAL  IMPORT  NodeNameType,  AssetTypeQueue,  CargoTypeQueue,  RouteTypeQueue,  NodeTypeQueue; 

FROM  ASSET  IMPORT  AssetObj; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  CONVOY  IMPORT  ConvoyObj; 

FROM  RECORDS  IMPORT  VehiclesRec; 

FROM  ROUTE  IMPORT  RouteObj; 

FROM  NODE  IMPORT  NodeObj; 

EXPORTTYPE 

MotorpoolObj  =  OBJECT;  FORWARD; 

TYPE 

ConvoyTypeQueue  =  QueueObj; 

RecoveryMissionObj  *  OBJECT 
location  :  STRING; 
numberToRecover :  INTEGER; 

ASK  METHOD  GetFields  (IN  Location  :  STRING; 

IN  NumberToRecover :  INTEGER); 

ASK  METHOD  Adjust  (IN  Adjustment :  INTEGER); 

END  OBJECT  {RecoveryMission}; 

MotorpoolObj  =  OBJECT 

name  :  NodeNameType; 
location  :  STRING; 
maxNumb InConvoy :  INTEGER; 
distBetweenVeh  :  REAL; 
distBetweenConvoys :  REAL; 
wreckersConvoy :  BOOLEAN; 
repairTime  :  REAL; 

VehideaRecord  :  VehiclesRec; 

AssetList  :  AssetTypeQueue; 

MasterRouteList  :  RouteTypeQueue; 

MasterNodeList :  NodeTypeQueue; 

RecoveryMissionList :  AssetTypeQueue; 

WaitingForAssetQueue :  CargoTypeQueue; 

Dispatch  :  StreamObj; 

AlgorithmQueue  :  AssetTypeQueue; 

ASK  METHOD  Objlnit; 

ASK  METHOD  OetName  (IN  MyName  :  STRING); 

ASK  METHOD  DumpStatus; 

ASK  METHOD  GetFields  ON  name  :  STRING); 

ASK  METHOD  OetAsseu  (IN  name  :  STRING); 

ASK  METHOD  GetMasterLists  (TNOUT  MasterRouteList  ;  RouteTypeQueue; 

INOUT  MasterNodeList :  NodeTypeQueue); 

TELL  METHOD  ScheduleMission(IN  Requestor  :  STRING; 

IN  CargoToLoad  :  CargoTypeQueue; 

IN  Convoy  :  ConvoyObj); 

TELL  METHOD  ConductMission  (IN  Convoy  :  ConvoyObj; 
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IN  origin  :  STRING; 

IN  destination  ;  STRING); 

ASK  METHOD  RetumAssets  (IN  Convoy  :  ConvoyObj); 

TELL  METHOD  MstchCstgoToAuet(IN  asset  :  AssetObj; 

IN  load  :  CsrgoObj); 

TELL  METHOD  ConductLosding(IN  Convoy  ;  ConvoyObj); 

TELL  METHOD  SchedRecovery  (IN  Location  :  STRING; 

IN  NumberToRecover :  INTEGER); 

TELL  METHOD  ConductRecovery  (IN  convoy  :  ConvoyObj; 

IN  origin  :  STRING; 

IN  destination  :  STRING); 

ASK  METHOD  Find  Wrecker  (IN  Convoy  :  ConvoyObj; 

IN  Mission  ;  RecoveryMissionObj); 

ASK  METHOD  Check WreckersRetuming  (IN  Convoy  :  ConvoyObj; 

INOUT  NewConvoy  :  ConvoyObj); 

TELL  METHOD  RetumFixedAsset  (IN  fixedAsset ;  AssetObj); 

TELL  METHOD  Reports tatus  (IN  MotorpoolReport :  StreamObj); 

TELL  METHOD  ClearConvoy  (IN  Convoy  :  ConvoyObj; 

IN  Route  :  RouteObj); 

END  OBJECT  {MotorpoolObj}; 

END  {DEFINITION}  MODULE  {mototpl}. 

IMPLEMENTATION  MODULE  MOTORPL; 

FROM  UtilMod  IMPORT  Delay; 

FROM  SimMod  IMPORT  SimTime; 

FROM  IOMod  IMPORT  StreamObj,  FileUseType(Output); 

FROM  Debug  IMPORT  TraceStream; 

FROM  GLOBAL  IMPORT  NodeNameType,  AssetTypeQueue,  CargoTypeQueue,  VehicleType, 

LinkTypeQueue,  NodeTypeQueue,  RouteTypeQueue; 

FROM  RGLOBAL  IMPORT  AasecOwnersSHArray,  MotorpoolSHArrsy,  SHierRecType; 

FROM  CREATEA  IMPORT  CreateAaaet; 

FROM  ASSET  IMPORT  AssetObj,  VehicleObj,  TtuckObj,  TracTriObj,  TracLowBoyObj,  HettObj,  OldHettObj,  RecovetyObj; 
FROM  FINDSH  IMPORT  EindSHRec; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  FINDSHP  IMPORT  RndShortestPath; 

FROM  CONVOY  IMPORT  ConvoyObj; 

FROM  ROUTE  IMPORT  UnkObj,  RouteObj; 

FROM  CHECKAS  IMPORT  Find  Assets,  CheckRetuming  Assets,  CheckLosded  Assets; 

FROM  NODE  IMPORT  NodeObj,  FindNod; 

FROM  RECORDS  IMPORT  DispatchRecList,  DispatchRec,  VehTypeRecList,  VehTypeRec,  VehidesRec; 

FROM  FINDS  UP  IMPORT  FindAsaetTypeRecord; 

FROM  SUPPLY  IMPORT  Supply PointObj; 


OBJECT  RecoveryMissionObj; 

{ - } 

ASK  METHOD  GetFtelds  (IN  Location  :  STRING; 

IN  NumberToRecover :  INTEGER); 

{ - } 

BEGIN 

location  ;»  Location; 

numbeiT oRecover  : «  NumberToRecover; 

END  METHOD  {OetFields}; 

{ - } 

ASK  METHOD  Adjust  (IN  Adjustmem  :  INTEGER); 

{ - } 

BEGIN 

numberT oRecover  :  =  numberToRecover  +  Adjustment; 
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END  METHOD  {Adjust}; 

END  OBJECT  {RecoveryMistion}; 

OBJECT  MotorpoolObj; 

{ - } 

ASK  METHOD  Objlni t; 

{ - } 

BEGIN 

NEW(AssetList); 

NEW(M«sterRouteLiit); 

NEW(MasterN  odeList) ; 

NEW(RecoveryMissionList); 

NEW(WaitingForAssetQueue); 

NEW(VehiclesRecord); 

NEW(AlgorithmQueue); 

NEW (Dispatch); 

END  METHOD  {Objlnit}; 

{ - > 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

{ - } 

BEGIN 

name  ;=  MyName; 

END  METHOD  {GetName}; 

{ - } 

ASK  METHOD  OetFielda  (IN  name  :  STRING); 

{ - > 

VAR 

i  :  INTEGER; 

MotoipoolSHRec  :  SHierRecType; 
wreckers  Accompany ;  STRING; 
smallest  Asset,  biggest  Asset  :  AaaetObj; 

BEGIN 

location  ;■  name; 

FindS  HRec(MotnrpoolSH  Array,  name,  MotorpoolSHRec); 

i  1; 

REPEAT 

maxNumb InConvoy  :  =  STRTOINT  (MotorpoolSHRec  .OwnedString[i]); 
INC(i); 

diatBetweenVeh  ;•  STRTOREAL  (MotorpoolSHRec .OwnedString[i|); 

INCG); 

distBetweenConvoys  :  *=  STRTOREAL  (MotorpoolSHRec. OwnedStringiiJ); 

INCG); 

wreckersAccompany  : »  (MotorpoolSHRec. OwnedStringiiJ); 

INCG); 

IF(wreckersAccompany  *  TRUE") 
wreckersConvoy :  *  TRUE; 

END  IF; 

repairTime  ;«  STRTOREAL(MotorpoolSHRec. OwnedStringiiJ); 

INCG); 

NEW(biggestAsaet) ; 

ASK  biggest  Asset  TO  OetName('BIG "  ,0, location); 

ASK  biggestAaaet  TO  GetSmallValue; 

ASK  AJgorithmQueue  TO  Add(biggest Asset); 

NEW(smalleatAaset) ; 

ASK  amallestAsaet  TO  GetName(’SMALL*,0, location); 

ASK  amallestAiaet  TO  GetBigValue; 

ASK  AlgorithmQueue  TO  Add(amalleatAsaet); 
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UNTIL  ((i  >  H!GH(MotorpoolSHRec.OwnedString))OR 
(MotorpoolSHRec.OwnedStringfi]  =  "EOF")); 

END  METHOD  {GetFields}; 

{ - } 

ASK  METHOD  GetAaaeU  (IN  name  :  STRING); 

{ - } 

VAR 

ij,k  :  INTEGER; 

number,  numberOfAaaeU :  INTEGER; 

AuetOwnersSHRec  :  SHierRecType; 

model  :  STRING; 

truck  :  TruckObj; 

tracTrl  :  TncTrlObj; 

tracLowBoy  :  T racLowBoyObj ; 

hett  :  HettObj; 

oldHett  :  OldHettObj; 

wrecker  ;  RecoveryObj; 

vehicleTypeRecord :  VehTypeRec; 

BEGIN 

FindSHRec(AuetOwneraSHAmy,  name,  AuetOwnenSHRec); 
i  I; 

WHILE  ((AaaetOwnenSHRec.OwnedStringli]  <  >  TRUCKS’)  AND 
(AasetOwnenSHRec.OwnedStringii)  <  >  *\\’)) 

INCO); 

END  WHILE; 

INC®; 

IF  (AaaetOwnenSHRec.OwnedStringli]  =  ’none’) 

ELSE 

NEW(vehideTypeRecord);  {Getting  record  for  all  TRUCKS}; 

REPEAT 

model  :«  (AaaetOwner*SHRec.OwnedString[i)); 

INC(i); 

number  :  w  STRTOINT(A(aetOwnenSHRec.OwnedString[i]); 
FOR  j  ;«=  1  TO  number 
NEW(truck); 

CreateAsaet  (TRUCKS’,  model,  j,  name,  truck); 
ASK  AaaetLiat  TO  Add  (truck); 
numberOfAaaeU  :=  numberOfAaaeta  +  1; 

END  FOR; 

INCO); 

UNTIL®  >  HIGH(AaaetOwneraSHRec.OwnedString))OR 

(AaaetOwnenSHRec.OwnedStringli]  *=  ’\\*)  OR 
(AaaetOwnenSHRec.OwnedStringli]  =  TRACTRLS')); 
ASK  vehicleTypeRecord  TO  GetField«(TRUCKS’,  numberOfAaaeta); 

ASK  VehicleaRecord.vehTypeRecLiatTO  Add(vehicleTypeRecord); 

END  IF; 

numberOfAaaeU  :  =  0; 

WHILE  ((AaaetOwnenSHRec.OwnedStringli]  <  >  TRAC  TRLS")  AND 
(AaaetOwnenSHRec.OwnedStringli]  <  >  ’\V’)) 

WCO); 

END  WHILE; 

INCO); 

IF  (AaaetOwnenSHRec.OwnedStringli]  =  ’none") 

ELSE 

NEW(vehicleTypeRecord);  {Getting  record  for  all  TRAC_TRLS}; 

REPEAT 

model  ;*  (AaaetOwnenSHRec.OwnedStringli)); 

INC(i); 

number  :  =  STRTOINTf AaaetOwnenSHRec.OwnedStringli]); 
FOR  j  :  *  1  TO  number 
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NEW(tr»cTrl); 

CreatcAsaet  ("TRACTRLS " ,  model,  j,  name,  tracTrl); 

ASK  AaaetLiat  TO  Add  (tracTrl); 
numberOfAueU  :=  numberOfAueU  +  1; 

END  FOR; 

INC®; 

UNTIL  ((i  >  HIGH (AsaetOwnersSHRec  .OwnedString))  OR 

(AuetOwneraSHRec  .OwnedString®  =  '\\')  OR 
(AasetOwnertS  HR  ec. OwnedString®  =  "TRACLOWBOYS")); 

ASK  vehicleTypeRecord  TO  GetFieldaCTRACJTRLS",  numberOf Assets); 

ASK  VehicleaRecord.vehTypeRecLiatTO  Add(vehicleTypeRecord); 

END  IF; 

numberOfAueU :  =  0; 

WHILE  ((AaaetOwnenSHRec.OwnedString®  <  >  "TRACLO  WBO  YS  ")  AND 
(AaaetOwnenSHRec.OwnedString®  <  >  *W)) 

INCfr); 

END  WHILE; 

INCCO; 

IF  (AaaetOwnenSHRec.OwnedString®  =  ’none”) 

ELSE 

NEW(vehicleTypeRecord);  {Getting  record  for  all  TRAC_LOWBOYS}; 

REPEAT 

model  :=  (AuetOwnenSHRec.OwnedStringli]); 

INC®; 

number  :=  STRTOINT(AatetOwnertS  HR  ec. OwnedString®); 

FOR  j  :  =*  1  TO  number 

NEW(tncLowBoy); 

C reate Auet  ("TRAC  LOWBOYS",  model,  j,  name,  tncLowBoy); 

ASK  AaaetLiat  TO  Add  (tracLow Boy); numberOfAueU  :=  numberOfAssets  +  1; 
END  FOR; 

INC®; 

UNTIL  (fi  >  HIGH(AaaetOwneraSHRec.OwnedString)) OR 

(AaaetOwneraSHRec  OwnedString(i)  *  *\\")  OR 
(A*aetOwnersSHRec.OwnedString(i]  “  “HETTS")); 

ASK  vehicleTypeRecord  TO  GetFielda(TRAC_LOWBOYS",  numberOfAaaeU); 

ASK  VehicleaRecord.vehTypeRecLiitTO  Add(vehideTypeRecord); 

END  IF; 

numberOfAaaeto :«  0; 

WHILE  ((AuetOwnenSHRec.OwnedStringli]  <  >  "HETTS")  AND 
(AuetOwnenSHRec.OwnedString{i]  <  >  *\\*)) 

INC®; 

END  WHILE; 

INCfr); 

IF  (AacatOwnenSHRec.OwnedStringli]  =  'none") 

ELSE 

NEW(vehicleTypeRecord);  {Getting  record  for  all  HETTS}; 

REPEAT 

model  :=  (AuetOwnenSHRec.OwnedStringli]); 

INCO); 

number :«  STRTOINT(AuetOwnerfSHRec.OwnedString[i)); 

FOR  j  :=  1  TO  number 
NEW(hett); 

CreateAsaet  ('HETTS',  model,  j,  name,  hett); 

ASK  AuetLiit  TO  Add  (hett); 
numberOfAueU  :  -  numberOfAueU  +  1 ; 

END  FOR; 

INC®; 

UNTIL  ((i  >  HIGH(AaaetOwneraSHRec.OwnedString)) OR 

(AuetOwnenSHRec.OwnedStringli]  =  *W)  OR 
(AaaetOwnenSHRec.OwnedStringli)  =  'WRECKERS')); 

ASK  vehicleTypeRecord  TO  GetFielda(*HETTS',  nu mb crOf  Assets), 
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ASK  VehicleaRecord  vehTypeRecLiat  TO  Add(vehicleTypeRecord); 

END  IF; 

numberOfAraets  :  =  0; 

WHILE  ((AaaetOwneraSHRec.OwnedStringfiJ  <  >  ’WRECKERS')  AND 
(AasetOwneraSHRec.OwnedStringli]  <  >  *\\")) 

INC®; 

END  WHILE; 

INC(i); 

IF  (AaaetOwneraSHRec.OwnedStringfi]  =  "none") 

ELSE 

NEW(vehicleTypeRecord);  {Getting  record  for  ell  WRECKERS}; 

REPEAT 

model  :  =  (AaaetOwneraSHRec.OwncdString[i)); 

INC®; 

number  :=  STRTOINT(AtaetOwnereSHRec.OwnedString[i]); 

FOR  j  ;  =  1  TO  number 
NEW(wrecker); 

CreateAaaet  ("WRECKERS",  model,  j,  name,  wrecker); 

ASK  AaaetLiat  TO  Add  (wrecker); 
numberOfAraets  :  =  numberOfAiseti  +  1 ; 

END  FOR; 

INC®; 

UNTIL  (0  >  HIGH(AsaetOwneraSHRec.OwnedString))  OR 

(AasetOwnenSHRec.OwnedString[i]  =  "\\")  OR 
(AeaetOwnenSHRec.OwnedStringfi]  =  "TRUCKS")); 

ASK  vehideTypeRecord TO  GetFielda(”  WRECKERS  ".numberOfAasets); 

ASK  VehideaRecord.vehTypeRecLiatTO  Add(vehicleTypeRecord); 

END  IF; 

END  METHOD  {GetAaaets}; 

{ - } 

ASK  METHOD  GelMaiterLiata  (INOUT  maaterRouteLiat :  RouteTypeQueue;  IN  OUT  maaterNodeList :  NodeTypeQueue); 

{ - } 

BEGIN 

MaaterRouteLiat  :*  maaterRouteLiat; 

MaaterNodeLiat :  *  maaterNodeLiat; 

END  METHOD  {GetMaaterLiata}; 

{ - } 

TELL  METHOD  ScheduleMiaaion  (IN  Requestor  :  STRING; 

IN  CargoToLoad  :  CargoTypeQueue; 

IN  convoy  :  ConvoyObj); 

{ - } 

VAR 

load  :  CargoObj; 
aaaet  :  AaaetObj; 

newConvoy,  retumConvoy  :  ConvoyObj; 

ConvoyLiat :  ConvoyTypeQueue; 

RouteLiat  :  RouteObj; 
anotherTrip  :  BOOLEAN; 

CouldNotLoadQueue ;  AaaetTypeQueue; 

BEGIN 

IF(convoy  =  NILOBJ) 

NEW(convoy); 

ASK  convoy  TO  OetMiaaionType  ("Reaupply",  location,  diatBetweenConvoya,  wreckeraConvoy,  repairTime); 

END  IF; 

NEW(newConvoy); 

ASK  newConvoy  TO  OetMiaaionType  ("Reaupply",  location,  diatBetweenConvoya,  wreckeraConvoy,  repairTime); 
NEW(CouldNotLoadQueue); 

WHILE  ASK  CargoToLoad  numberln  >  0 

load  :  «=  ASK  CargoToLoad  TO  Remove  0; 
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FindAssets(SELF,  convoy,  load,  CouldNotLoadQueue); 

END  WHILE; 

WHILE  ASK  CouldNotLoadQueue  numberln  >  0 

load  :=  ASK  CouldNotLoadQueueTO  Remove  0; 

ASK  WaitingForAisetQueue  TO  Add  (load); 

END  WHILE; 

DlSPOSE(CouldNotLoadQueue); 

NEW(retumConvoy); 

aaaet  :=  ASK  convoy.  AssetList  First  0; 

REPEAT 

IF(asaet.loadDimens .weight  -  0.0) 

ASK  convoy  .AsaetList  TO  RemoveThis  (asset); 

ASK  retumConvoy.AssetListTO  Add  (asset); 

DF((ASK  convoy  .AssetList  numberln)  >  0) 

asset  :=  ASK  convoy. AssetList  FirstO; 

ELSE 

asset  :  =  NILOBJ; 

END  IF; 

ELSE 

asset  :=■=  ASK  convoy. AssetList  Next(asset); 

END  IF; 

UNTIL(asset  »  NILOBJ); 

IF(ASK  retumConvoy.  AssetList  numberln  >  0) 

RetumAueU(retumConvoy); 

ELSE 

DlSPOSE(retumConvoy); 

END  IF; 

IF(ASK  convoy  .AsaetList  numberln  >  0) 

WAIT  FOR  SELF  TO  ConductLoading(convoy); 

END  WATT; 

IF((ASK  convoy. AssetList  numberln)  >  maxNumblnConvoy) 

REPEAT 

REPEAT 

asset  :«  ASK  convoy  .AsaetList  TO  RemoveO;  ASK  newConvoy.  AssetList  TO  Add(asset); 
UNTIL((ASK  convoy. AssetList  numberln)  =»  maxNumblnConvoy); 

ASK  convoy  TO  OetLength(distBetweenVeh); 

TELL  SELF  TO  ConductMission(convoy,  location.  Requestor); 
convoy  :  “  newConvoy; 

NEW(newConvoy); 

ASK  newConvoy  TO  OetMissionType  (’Resupply",  location,  distBetweenConvoysjwreckersConvoy^epairTime); 
UNTDL((ASK  convoy. AssetList  numberln)  <  =  maxNumblnConvoy); 

ASK  convoy  TO  QetLength(distBetweenVeh); 

TELL  SELF  TO  ConductMission(coiivoy,  location,  Requestor); 

ELSE 

ASK  convoy  TO  GetLength(distBetweenVeh); 

TELL  SELF  TO  ConductMisaion(convoy,  location.  Requestor); 

END  IF; 

ELSE 

D!SPOSE(convoy); 

END  IF; 

END  METHOD  {ScheduleMission} ; 

< - } 

ASK  METHOD  RetumAsaeta  (IN  Convoy  :  ConvoyObj); 

{ - > 

VAR 

asset  :  AssetObj; 

VehTypeRecord  :  VehTypeRec; 

BEGIN 

asset :  *  ASK  Convoy. AssetList  FirstO; 

IF  (asset  <  >  NILOBJ) 
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REPEAT 

ASK  Convoy .  AssetUst  TO  RemoveThii  (asset); 

Find  AssetTypeRecord(asset.vehType,  SELF.  VehiclesRecord.VehTypeRecord); 
ASK  VehTypeRecord  TO  GetUncommitted; 

ASK  AssetList  TO  Add  (asset) ; 

IF  ((ASK  Convoy. AssetList  numberln)  >  0) 

uiet  :=  ASK  Convoy. AssetList  First  0; 

ELSE 

its at  :=  NILOBJ; 

END  IF; 

UNTO,  (asset  =  NILOBJ); 

END  IF; 

END  METHOD  {RetumAssets}; 

{ - } 

TELL  METHOD  ConductMission  (IN  convoy  :  ConvoyObj; 

IN  origin  :  STRING; 

IN  destination  :  STRING); 

{ - > 

VAR 

asset  :  AssetObj; 
load  :  CargoObj; 

Link  :  UnkObj; 

Node  :  NodeObj; 

Route,  RetumRoute  :  RouteObj; 
routeDist,  retumRouteDist,  distance  :  REAL; 
maxRange,  MaxRange  :  REAL; 
updatedOdometer,  updatedFuel Level :  REAL; 
time  Elapsed, 
mostTimeElapsed , 

TravelTime, 
clears  nceDist :  REAL; 

BEGIN 

FindShorteatPath  (MasterRouteList,  origin,  destination.  Route); 

FindShorteatPath  (MasterRouteList,  destination,  origin,  RetumRoute); 

{Find  total  route  distance} 

Link  :«*  ASK  Route. LinkRoute  First  0; 

WHILE  Unk  <  >  NILOBJ 

routeDist  :»  routeDist  +  Link.distance; 

Link  :»  ASK  Route. LinkRoute  Next  (Link); 

END  WHILE; 

Link  : »  ASK  RetumRoute. LinkRoute  First  0; 

WHILE  Unk  <  >  NILOBJ 

retumRouteDist :  =  retumRouteDist  -t-  Unk. distance; 

Unk  :  =  ASK  RetumRoute. LinkRoute  Next  (Unk); 

END  WHILE; 

distance  :=  routeDist  +  retumRouteDist; 

ASK  convoy  TO  GetDistancea(routeDist  retumRouteDist); 

MaxRange  :«  9999999999999999.0; 

WAIT  FOR  convoy  TO  Refuel  (origin,  MasterNodeList) 
asset  :*  ASK  convoy. AaaetList  First  0; 

REPEAT 

maxRange  :  *  asset. fuelCap  *  asset. fuelConsump; 

IF(maxRange  <  MaxRange) 

MaxRange  :  =  maxRange; 

END  IF; 

asset  :  =  ASK  convoy .  AsaetUst  Next  (asset); 

UNTO  (asset  =  NILOBJ); 

IF (MaxRange  >  distance) 

ASK  convoy  TO  NotRefuelDuringMsn; 

END  IF; 
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END  WAIT; 

FindNode(location,  MaaterNodeLiat,  Node); 

WAIT  FOR  Node.clearance  TO  Give  (SELF,  1); 

WAIT  FOR  SELF  TO  CleerConvoy  (convoy,  Route); 

END  WAIT; 

ASK  Node.cieerance  TO  TakeBack  (SELF,  1); 

END  WAIT; 

ASK  convoy  TO  GetName(name  +  REALTOSTR(SimTimeO)); 

ASK  Diapatch  TO  WriteString( "Convoy  "  +  convoy  .name  +  "  i«  leaving  ’  +  name); 

ASK  Diapatch  TO  WriteLn; 

ASK  Diapatch  TO  WriteStringC  TIME  OF  DEPARTURE  ia  "  +  REALTOSTR  (SimTimeO)); 

ASK  Diapatch  TO  WriteStringC.  Number  in  convoy  ia  "  +  INTTOSTR  (ASK  convoy. AasetLiat  numberln)); 
ASK  Diapatch  TO  WriteLn; 

ASK  Diapatch  TO  WriteLn; 

WAIT  FOR  convoy  TO  Travel  (deetination.  Route,  MaaterNodeLiat); 

END  WAIT; 

{IF  Fuelpoint  avail,  Refuel  Aaaeta} 

IF  (NOT  convoy .fiielNotNeeded) 

WAIT  FOR  convoy  TO  Refuel  (deetination,  MaaterNodeLiat) 

END  WATT; 

END  IF; 

FindNode(deatination,  MaaterNodeLiat,  Node); 

WAIT  FOR  Node.clearance  TO  Give  (SELF,  1); 

WAIT  FOR  SELF  TO  CleaiConvoy  (convoy,  RetumRoute); 

END  WATT; 

ASK  Node.clearance  TO  TakeBack  (SELF,  1); 

END  WATT; 

WAIT  FOR  convoy  TO  Travel  (deetination,  RetumRoute,  MaaterNodeLiat) 

END  WAIT; 

ASK  Diapatch  TO  WriteS tring("convoy  "  +  SELF. name  +  *  returned  to  "  +  Node. name); 

ASK  Diapatch  TO  WriteLn; 

ASK  Diapatch  TO  WriteStringC  time  of  RETURN  ia  "  +  REALTOSTR  (SimTimeO)); 

ASK  Diapatch  TO  WriteLn, 

ASK  Diapatch  TO  WriteStringC  Number  in  convoy  ia  "  +  INTTOSTR  (ASK  AeaetLiat  numberln)); 
aeaet  :•  ASK  convoy  .AeaetLiat  Firet  0; 

WAIT  FOR  convoy  TO  PerformPMCS  (origin,  MaaterNodeLiat); 

END  WAIT; 

IF(convoy.returaRouteDiet  >  Node. me xMilea Allowed) 

WAIT  DURATION  Node.etandDownTime 
END  WAIT; 

END  IF; 

IF  ASK  WaitingForAeeetQueue  numberln  >  0 

ScheduleMiaaion(deatination,  WaitingForAeeetQueue,  convoy); 

ELSE 

RetumAeaeta(convoy); 

END  IF; 

END  METHOD  {ConductMiaaion} ; 

{ - } 

TELL  METHOD  MatchCargoToAeaet(IN  aeaet  :  AaaetObj; 

IN  load  :  CargoObj); 

{ - } 

BEGIN 

WAIT  FOR  aaaet  TO  LoadCargo  (load); 

END  WAIT; 

END  METHOD  {MatchCargoToAreet}; 

{ - ) 

TELL  METHOD  ConductLoading(IN  convoy  :  ConvoyObj); 
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VAR 

LoedingPt  :  SupplyPointObj; 

Node  :  NodeObj; 

BEGIN 

FindNodeOocetion,  MasterNodeList,  Node); 

WAIT  FOR  Node.mySupply.loadingPointsQueueTO  PriorityGive  (SELF,  1,  convoy  .priority); 

LoedingPt  :=  ASK  Node.mySupply. LoadingPointsTO  RemoveO; 

WAIT  FOR  Node.mySupply  TO  LoadSupplies(convoy.AssetList,  convoy  .priority,  LoedingPt); 

END  WAIT; 

END  WAIT; 

ASK  Node.mySupply  .loedingPointsQueueTO  TakeBeck  (SELF,  1); 

ASK  Node.mySupply.LoadingPointeTO  Add(LoadingPt); 

END  METHOD  {ConductLoeding}; 

{ - } 

TELL  METHOD  SchedRecovery  (IN  Destination  :  STRING; 

IN  NumberToRecover :  INTEGER); 

{ - } 

VAR 

i  :  INTEGER; 

Node  :  NodeObj; 
brokenAsset :  AsaetObj; 
wrecker  :  RecoveryObj; 
convoy,  newConvoy  :  ConvoyObj; 

Route  Lilt  :  RouteObj; 
anotherTrip  :  BOOLEAN; 

RecovetyMiasion,  NextMiaaion  :  RecoveryMiasionObj; 

BEGIN 

NEW(convoy); 

ASK  convoy  TO  GetMiaaionType  ('Recovery ",  location,  diatBetweenConvoya,  wreckersConvoy,  repairTime); 
NEW(newConvoy); 

ASK  newConvoy  TO  GetMiaaionType  ('Recovery',  location,  diatBetweenConvoya,  wreckeraConvoy ,  repairTime); 
NEW(RecoveryMieaion); 

ASK  RecoveryMiaaion  TO  GetFielda  (Deatination,  0); 

FOR  i  :  =  1  TO  NumberToRecover 

FindWrecker(convoy ,  RecoveryMiaaion); 

END  FOR; 

IF((ASK  convoy. AaaetLict  numberln)  >  0) 

REPEAT 

WAIT  FOR  SELF  TO  ConductRecovery(convoy,  location,  Destination); 

END  WAIT; 

anotherTrip  :=  FALSE; 

FindNodeOocation,  MasterNodeList,  Node); 
wrecker  ;*  ASK  convoy. AaaetLiat  First  0; 

REPEAT 

IF((ASK  wrecker. RecoveryLoad  numberln)  >  0); 

WAIT  FOR  wrecker  TO  UnHook; 

brokenAsset  :  =  ASK  wrecker.RecoveryLoad  TO  Remove  0; 

END  WAIT; 

{got  to  unload  cargo} 

TELL  Node.myMaintenanceTO  Receive  Work  (brokenAsset); 

END  IF; 

wrecker  :«  ASK  convoy  .AsaetList  Next  (wrecker); 

UNTO-  (wrecker  =  NILOBI), 

IF(convoy.retumRouteDist  >  Node.maxMilesAllowed) 

WAIT  DURATION  Node.standDownTime 
END  WATT; 

END  IF; 

RetumAsaeta(convoy); 

IF((ASK  newConvoy.  AsaetList  numberln)  >  0) 
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convoy  :=  newConvoy; 
anotherTrip  :=  TRUE; 

END  IF; 

UNTIL  (NOT  anotherTrip); 

END  IF; 

END  METHOD  {ScheduieRecovery}; 

{ - } 

TELL  METHOD  ConductRecovery  (IN  convoy  :  ConvoyObj; 

IN  origin  :  STRING; 

IN  destination  ;  STRING); 

{ - } 

VAR 

asset  ;  AssetObj; 
newConvoy :  ConvoyObj; 
load  :  CargoObj; 

Link  :  LinkObj; 

Route,RetumRoute  ;  RouteObj; 
routeDist,  retumRouteDist,  distance  :  REAL; 
maxRange,  MaxRange  :  REAL; 
updatedOdometer,  updatedFuelLevel :  REAL; 
timeElapsed, 

mostTimeElapsed  :  REAL; 

TravelTime  ;  REAL; 
anotherTrip  :  BOOLEAN; 

BEGIN 

FindShortestPath  (MasterRouteList,  origin,  destination,  Route); 
FindShortestPath  (MasterRouteList,  destination,  origin,  RetumRoute); 
{Find  total  route  distance} 

Link  :•  ASK  Route. Li nkRoute  First  0; 

WHILE  Link  <  >  NILOBJ 

routeDist  :»  routeDist  4-  Link  .distance; 

Link  :«  ASK  Route.LinkRoute  Next  (Link); 

END  WHILE; 

Link  :»  ASK  RetumRoute. LinkRoute  First  0; 

WHILE  Link  <  >  NILOBJ 

retumRouteDist  :«■  retumRouteDist  4  Link. distance; 

Link  :=  ASK  RetumRoute. LinkRoute  Next  (Link); 

END  WHILE; 

distance  :  =  routeDist  4  retumRouteDist; 

ASK  convoy  TO  OetDi stances! routeDist,  retumRouteDist); 

WATT  FOR  convoy  TO  Refuel  (origin,  MasterNodeList) 
asset  :  *  ASK  AssetList  First  0; 

REPEAT 

maxRange  :m  asset. fuelCap  *  asset. fuelConsump; 
IF(maxRange  <  MaxRange) 

MaxRange  :  =  maxRange; 

END  IF; 

asset  :  =  ASK  AssetList  Next  (asset); 

UNTIL  (asset  «  NILOBJ); 

IF(MaxRange  >  distance) 

ASK  convoy  TO  NotRefuelDuringMsn; 

END  IF; 

END  WAIT; 

WAIT  FOR  convoy  TO  Travel  (destination.  Route,  MasterNodeList); 
END  WAIT; 

{IF  Fuelpoint  avail.  Refuel  Assets} 

IF  (NOT  convoy  .fuelNotNeeded) 

WAIT  FOR  convoy  TO  Refuel  (destination,  MasterNodeList) 
END  WAIT; 

END  IF; 
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WAIT  FOR  convoy  TO  Travel  (destir.  non,  RetumRoute,  MasterNodeList) 

END  WAIT; 

WAIT  FOR  convoy  TO  PerformPMCS  (origin,  MasterNodeList); 

END  WATT; 

END  METHOD  {ConductRecovety}, 

{ - } 

ASK  METHOD  FindWrecker  (IN  Convoy  :  ConvoyObj; 

IN  RecoveryMission  ;  RecoveryMissionObj); 

{ - - -} 

VAR 

wrecker  :  Asset Obj ; 
foundWrecker :  BOOLEAN; 

VehTypeRecord  ;  VehTypeRec; 

BEGIN 

foundWrecker :  =  FALSE; 
wrecker  :  =  ASK  AasetList  First  0; 

IFtwrecker  <  >  NILOBJ) 

REPEAT 

IF(wrecker.type  *=  'RECOVERY') 

ASK  AsaetList  TO  RemoveThia  (wrecker); 

FindAaaetTypeRecord(wrecker.vehType,SELF.VehiclesRecord,  VehTypeRecord); 
ASK  Convoy. AaaetList  TO  Add  (wrecker); 
foundWrecker  TRUE; 

ELSE 

wrecker  :  »  ASK  AaaetList  Next  (wrecker); 

END  IF; 

UNTIL  ((wrecker  -  NILOBJ)  OR  (foundWrecker)); 

BF(NOT  foundWrecker) 

ASK  RecoveryMission  TO  Adjust  (I); 

ASK  Recovery  MissionList  TO  Add  (RecoveryMission); 

END  IF; 

END  IF; 

END  METHOD  {FindWrecker}; 

{ - } 

ASK  METHOD  CheckWreckeraRetuming  (IN  Convoy  :  ConvoyObj; 

INOUT  NewConvoy  :  ConvoyObj); 

{ - } 

VAR 

asset :  AsaetObj; 

recovery  Mission  :  RecoveryMissionObj; 

BEOIN 

asset  ASK  Convoy.  Asset!  jst  First  0; 

REPEAT 

recoveryMission  ;»  ASK  RecoveryMissionList  First  0; 

REPEAT 

IFfrecoveryMiseion  .numbetT oRecover  >  0) 

REPEAT 

ASK  Convoy. AsaetList  TO  RemoveThia  (asset); 

ASK  NewConvoy.  AsaetList  TO  Add  (asset); 

ASK  recoveryMission  TO  Adjust  (-1); 

IF  ((ASK  Convoy. AsaetList  numoerln)  ■»  0) 
asset  :«  NILOBJ; 

ELSE 

asset  :  =  ASK  Convoy  .AssetList  Next  (asset); 

END  IF; 

ELSIFfasset  <  >  NILOBJ) 

recoveryMission  :  -  ASK  RecoveryMissionList  Next  (recoveryMission); 

END  IF; 

UNTIL  ((recoveryMission  *  NILOBJ)  OR  (asset  «  NILOBJ); 


lF(asset  <  >  NILOBJ) 

asset  :=  ASK  Convoy  .AssetList  Next  (asset); 

END  IF; 

UNTIL  (asset  =  NILOBJ); 

END  METHOD  {CheckRetuming  Wreckers} ; 

{ - } 

TELL  METHOD  RetumFixedAsset  (IN  fixedAsset  :  AssetObj); 

{ - } 

VAR 

convoy  :  Convoy Obj; 

Route  :  RouteObj; 

VehTypeRecord  :  VehTypeRec; 

Node  :  NodeObj; 
load  :  CargoObj; 

BEGIN 

NEW(convoy); 

IF(fixed  Asset. home  =  SELF. location) 

Find AssetTypeRecord(fixedAsset. vehType, SELF. VehiclesRecord,  VehTypeRecord); 

ASK  VehTypeRecord  TO  GetRepaired; 

ASK  AssetLiat  TO  Add(fixedAsaet); 

ELSE 

FindNode(fixedAsset.home,  MaaterNodeLiat,  Node); 

Findn  etTypeRecotd(fixedAseet.type,  Node.myMotorpool .VehiclesRecord, VehTypeRecord); 

ASK  VehTypeRecord  TO  Ge'Repaired; 

ASK  convoy  TO  GetMisaionType("Repair"  ocation,  distBetweenConvoys,  NOT  wreckersConvoy,  repairTime); 

ASK  convoy. AaaetLiat TO  Add(fixedAaaei); 

FindShorteetPath  (MaaterRouteLiat,  location,  fixedAsset.home,  Route); 

WAIT  FOR  convoy  TO  Travel  (fixedAaaet.home,  Route,  MasterNodeList); 

END  WAIT; 

END  IF; 

END  METHOD  {RrtumFixed Aaaet} ; 

{ - } 

TELL  METHOD  Reports tatua  (IN  MotorpoolReport :  StreamObj); 

{ - } 

VAR 

vehicleRec  :  VehTypeRec; 

BEGIN 

ASK  Motorpo-'lReport  TO  WriteStringC********************************************************’); 

ASK  Motorpoolkeport  TO  WriteLn; 

ASK  MotorpoolReport  TO  WriteStringC**** ‘“Status  for  "  +  name  +  *  MOTORPOOL.  Time  is  ’  +  REALTOSTR(SimTimeO)); 

ASK  MotorpoolReport  TO  WriteLn; 

vehicleRec  : ■*  ASK  VehideaRecord.vehTypeRecList  First  0; 

REPEAT 

ASK  MotorpoolReport  TO  WriteStringC - Vehicle  Type  is  ’  +  vehicleRec.vehType); 

ASK  MotorpoolReport  TO  WriteLn; 

ASK  MotorpoolReport  TO  WriteStringC - "); 

ASK  MotorpoolReport  TO  WriteLn; 

ASK  MotorpoolReport  TO  WriteStringfTotal  Assets  are  ’  +  INTTOSTR  (vehicleRec .tott.  Assets)); 

ASK  MotorpoolReport  TO  WriteLn; 

ASK  MotorpoolReport  TO  WriteString(Total  Committed  is  ’  +  INTTOSTR  (vehicIeRec.totalCommitted)); 

ASK  vehicleRec  TO  FindRatea; 

ASK  MotorpoolReport  TO  WriteStringC  Util  Rate  %  is  "  +  REALTOSTR  (vehicleRec. utilRate)); 

ASK  MotorpoolReport  TO  WriteLn; 

ASK  MotorpoolReport  TO  WriteStringCTotal  Available  is  ’  +  INTTOSTR  (vehicleRec  .total Avail)); 

ASK  MotorpoolReport  TO  WriteStringC  Aveil  Rate  %  is  "  +  REALTOSTR  (vehicleRec. availRate)); 

ASK  MotorpoolReport  TO  WriteLn; 

ASK  MotorpoolReport  TO  WriteStringCTotal  Deadlined  is  "  +  INTTOSTR  (vehicleRec. totalAasets 
vehicleRec  .total  Avail)); 

ASK  MotorpoolReport  TO  WriteLn; 
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ASK  MotorpoolReport  TO  WriteString(*»**************«*»***»**»»***»»»******************’); 

ASK  MotorpoolReport  TO  WritcLn; 

vehicleRec  :  =  ASK  VehidecRecord.vehTypeRecList  Next  (vehicleRec); 

UNTIL  (vehicleRec  =  NILOBJ); 

END  METHOD  {ReportStatus}; 

{ - ) 

TELL  METHOD  CiearConvoy  (IN  Convoy  :  ConvoyObj; 

IN  Route  :  RouteObj); 

{ - } 

VAR 

asset  :  AssetObj; 

Link  :  LinkObj; 
timeElapied, 

mostTimeElspsed  :  REAL; 

TravetTime  :  REAL; 
clearanceDist ;  REAL; 
clearanceTime :  REAL; 
rate  ;  REAL; 

BEGIN 

Link  :  -  ASK  Route.LinkRoute  Firtt  0; 
aaaet  :■=  ASK  AaaetLiat  First  0; 

TravelTime  :*=  0.0; 

REPEAT 

timeElapied  :■=  ASK  Link  distance/ ASK  asset  rateOfTravel  {Link.roadSurface,  Link. terrain]; 

IF  (timeElapaed  >  mostTimeElapsed) 

TravelTime  :  =  timeElapaed; 

rate  :*  ASK  asset  rateOfTravel{Link.roadSurface,  Link.terrain]; 

END  IF; 

asset  :  *  ASK  AaaetLiat  Next  (asset); 

UNTIL  (asset  -  NILOBJ); 

clearanceDist  :=  (Convoy  totalLength  +  Convoy. distBetweenConvoy»)/5280.0; 
clearanceTime  :  =  clears nceDist/rste; 

WAIT  DURATION  clearanceTime 
END  WAIT; 

END  METHOD  {ClearConvoy}; 

END  OBJECT  {MotorpoolObj } ; 

END  {IMPLEMENTATION}  MODULE  {motorpl}. 

. •) 

DEFINITION  MODULE  RECORDS; 

{Records  that  are  kept  for  each  vehicle  type  are  defined  here} 

FROM  GrpMod  IMPORT  QueueObj; 

FROM  GLOBAL  IMPORT  NodeNameType; 

TYPE 

{If  individual  records  are  required  for  each  asset,  use  following. . . 

VehRecList  =  QueueObj; 

VehRec  «  OBJECT  {Individual  vehicle  Record} 
bumperNumber :  STRING; 
miles  ;  REAL; 

•otalMiles  :  REAL; 
opHours  .'  REAL; 
totalOpHoura  ;  REAL; 
committed  :  BOOLEAN; 
deadlined  :  BOOLEAN; 

ASK  METHOD  GetFieldsdN  BumperNumber  :  STRING); 

ASK  METHOD  UpDatedN  Miles  Driven  :  REAL; 
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IN  OpHours  :  REAL); 

ASK  METHOD  GetCommined; 

ASK  METHOD  ChangeDeadlinedStatus(IN  Status  :  BOOLEAN); 
ASK  METHOD  ResetFields; 

END  OBJECT  {VehRec};} 

VehTypeRec  -  OBJECT  {All  vehicles  of  a  particular  TYPE} 
vehType :  STRING; 
miles  :  REAL; 
tots  (Miles  :  REAL; 
opHours  :  REAL; 
lotalOpHours  :  REAL; 
totalAsseta  :  INTEGER; 
totalCommitted  :  INTEGER; 
totalAvail  :  INTEGER; 
shoitTons  :  REAL; 
totalShortTons  :  REAL; 
numberOfPieces  :  INTEGER; 
availRate  :  REAL; 
utilRate  :  REAL; 

{vehRecList :  VehRecLitt;  only  needed  if  ind  asset  rec  needed} 
ASK  METHOD  Objlnit; 

ASK  METHOD  GetFieIds(IN  vehType  :  STRING; 

IN  total  Assets  ;  INTEGER); 

ASK  METHOD  GetCommitted; 

ASK  METHOD  GetUncommitted; 

ASK  METHOD  GetDeadlined; 

ASK  METHOD  GetRepaited; 

ASK  METHOD  UpDate  (IN  Miles  :  REAL; 

IN  Hours  :  REAL; 

IN  STons  :  REAL); 

ASK  METHOD  Reset; 

ASK  METHOD  FindRates; 

END  OBJECT  {VehTypeRec}; 

VehTypeRec  Li  at  m  QueueObj; 

VehidesRec  =  OBJECT(VehTypeRec);  {All  vehicles  in  transportation  sys} 
VehTypeRec  List ;  VehTypeRecList; 

OVERRIDE 

ASK  METHOD  Objlnit; 

END  OBJECT  {VehidesRec} ; 

END  {DEFINITION}  MODULE  {records}. 

IMPLEMENTATION  MODULE  RECORDS; 

FROM  GLOBAL  IMPORT  NodeNameType; 

FROM  Debug  IMPORT  TraceS tream; 

{For  future  development,  if  individual  records  are  required... 

OBJECT  VehRec;  {For  each  individual  vehicle,  M35A2,  M55A1...} 

{ - } 

ASK  METHOD  GetFidds(IN  BumperNumber :  STRING); 

{ - } 

BEGIN 

bumperN umber  : «  BumperNumber; 

END  METHOD  {QetFields}; 

{ - } 

ASK  METHOD  UpDate(IN  MilesDriven  :  REAL; 
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IN  OpHour* :  REAL); 

( - } 

BEGIN 

mile*  :=  mile*  +  MilesDriven; 
toulMile*  :=  toUlMile*  +  MilesDriven; 
op  Hour*  :=  opHourt  +  OpHours; 
toulOpHoun  :=  toulOpHoun  +  OpHour*; 

END  METHOD  {UpDete}; 

{ - } 

ASK  METHOD  GetCommitted; 

{ - } 

BEGIN 

committed  :=  TRUE; 

END  METHOD  {GetCommitted}; 

{ - } 

ASK  METHOD  ChangeDeadlinedSutus(IN Status  :  BOOLEAN); 

{ - } 

BEGIN 

deedlined  :»  Status; 

END  METHOD  {ChangeDeadlinedSutus}; 

{ - } 

ASK  METHOD  ResetFields; 

{ - } 

BEGIN 

committed  :«  FALSE; 
miles  :«=  0.0; 
opHours  0.0; 

END  METHOD  {ResetFields}; 

END  OBJECT  {VehRec};} 

OBJECT  VehTypeRec;  {For  each  type  of  vehicle,  TRUCKS,  TRACTORS.  .  .} 

{ - } 

ASK  METHOD  Objlnit; 

{ - ) 

BEGIN 

{NEW(vehRecLitt);  use  if  you  do  have  a  record  list  for  each} 
END  METHOD  {Objlnit}; 

{ - } 

ASK  METHOD  GetFields(IN  VehType  :  STRING; 

IN  TotalAsset*  :  INTEGER); 

{ - } 

BEGIN 

vehType :  *  VehType; 
totalAssets  :=  Total  Assets; 
total  Avail  :*=  TotalAssets; 

END  METHOD  {OecFields}; 

{ - } 

ASK  METHOD  GetCommitted; 

{ - J 

BEGIN 

totalCommitted  :=  totalCommitted  +  1; 

END  METHOD  {GetCommitted}; 

( - > 

ASK  METHOD  GetUncommitted; 
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{ - } 

BEGIN 

toUlCommitted  :=  toUlCommitted  -  1; 

END  METHOD  {GetUncommitted}; 

{ - } 

ASK  METHOD  OetDeadlined; 

{ - } 

BEGIN 

toUlAvail  :«  toul Avail  -  I; 

END  METHOD  {OetDeadlined}; 

{ - > 

ASK  METHOD  GetRepaired; 

{ - } 

BEGIN 

totalAvail  :«  toul  Avail  +  1; 

END  METHOD  {GctRepairad}; 

{ - } 

ASK  METHOD  UpDate  (IN  Milea  :  REAL; 

IN  Hour.  .  REAL; 

IN  STont :  REAL); 

{ - } 

BEGIN 

milea  :=  milea  +  Milea; 
totalMilea  :=  toUlMiles  +  Milea; 
opHoura  :=  opHoura  +  Hour.; 
totalOpHoura  :  =  toUlOpHoura  +  Hour.; 
shortTona  :«  ahortTona  +  STona; 
totalShortTona  ;«  toulShortTona  +  STona; 
availRate  FLOAT(totalAvail)/FLOAT(toUlAaaeta); 
utilRate  :«  FLOAT(toUlCommitted)/FLOAT(toulAaieU); 

END  METHOD  (UpDau); 

{ - } 

ASK  METHOD  React; 

{ - } 

BEGIN 

milea  :*  0.0; 
opHoura  :  =  0.0; 
ahortTona  :»  0.0; 
toUlCommitted  :»  0; 
toul  Avail  :•  toUlAaaeU; 

END  METHOD  {Reaet}; 

{ - } 

ASK  METHOD  FindRatea; 

{ - ) 

BEGIN 

availRaU  :»  FLOAT(toUlAvail)/FLOAT(toUlAaaeU); 
utilRate  :•  FLOAT(toulComimtted)/FLOAT(toUlAaaeta); 

END  METHOD  {FindRatea}; 

END  OBIECT  {VehTypeRec}; 

OBJECT  VehicleaRec;  {All  major  typea  of  vehicle.,  SUM  of  everything} 

{ - ) 

ASK  METHOD  Objlnit; 

{ - ) 
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BEGIN 


NEW(vehTypeRecList); 

END  METHOD  {Objlnit}; 

END  OBJECT{Vehicle*Rec}; 

END  {IMPLEMENTATION}  MODULE  {record*}. 

DEFINTTION  MODULE  MAINT; 

{All  fields  end  methods  of  •  miintenance  facility  are  defined  here} 

FROM  IOMod  IMPORT  StreamObj; 

FROM  GLOBAL  IMPORT  NodeNsmeType,  AssetTypeQueue,  NodeTypeQueue,  RouteTypeQueue; 
FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  ASSET  IMPORT  AssetObj; 

EXPORTTYPE 

MaintenanceObj  =  OBJECT;  FORWARD; 

TYPE 

MaintenanceObj  =  OBJECT 

name  :  NodeNsmeType; 

WorkUst  :  AssetTypeQueue; 
myMotorpool :  MotorpoolObj; 

MaintReport ;  StreamObj; 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

ASK  METHOD  GetMyMotorpool  (IN  Motorpool :  MotorpoolObj); 

TELL  METHOD  Recover Aaaeta  (IN  Location  :  STRING; 

IN  NumbetToRecover :  INTEGER); 

TELL  METHOD  ReceiveWork  (IN  brokenAsaet :  AssetObj); 

TELL  METHOD  Repair  (IN  brokenAsaet :  AssetObj); 

END  OBJECT  {Maintenance}; 

END  {DEFINITION}  MODULE  {maintenance}. 

IMPLEMENTATION  MODULE  MAINT; 

FROM  IOMod  IMPORT  StreamObj,  FileUseTypef*'  .  iput); 

FROM  SimMod  IMPORT  SimTime; 

FROM  GLOBAL  IMPORT  NodeNsmeType,  AssetTypeQueue,  RouteTypeQueue,  NodeTypeQueue; 
FROM  RGLOBAL  IMPORT  AsaetOwnersSHAmy,  SHierRecType; 

FROM  FINDSH  IMPORT  FindSHRec; 

FROM  Debug  IMPORT  TreceStream; 

FROM  ASSET  IMPORT  AssetObj; 

FROM  CREATEA  IMPORT  CreateAsset; 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  CONVOY  IMPORT  ConvoyObj; 

FROM  ROUTE  IMPORT  RouteObj; 

OBJECT  MaintenanceObj; 

{ - } 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(WorkList); 

NEW(MaimReport) ; 

ASK  MaintReport  TO  Open  (*Maint.tpt*,  Output); 

END  METHOD  {Objlnit}; 
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{ - } 

ASK  METHOD  GetName  (IN  MyNtme  :  STRING); 

! - 1 

BEGIN 

name  :=  MyName; 

END  METHOD  {QetName}; 

{ - ) 

ASK  METHOD  GetMyMotorpool  (IN  Motorpool  :MotorpoolObj); 

{ - ) 

BEGIN 

myMotorpool  ;=  Motorpool; 

END  METHOD  {GetMyMotorpool}; 

{ - } 

TELL  METHOD  Recover  Aaaeta  (IN  Location  :  STRING; 

IN  NumberToRecover :  INTEGER); 

{ - } 

VAR 

brokenAaaet :  AaaetObj; 
convoy,  newConvoy :  ConvoyObj; 

RouteLiat  :  RouteObj; 
anotherTrip  :  BOOLEAN; 

BEGIN 

TELL  myMotorpool  TO  SchedRecovery  (Location,  NumbetToRecover); 

END  METHOD  {Recover Asaeta}; 

{ - } 

TELL  METHOD  ReceiveWork  (IN  brokenAaaet :  AaaetObj); 

{ - } 

BEGIN 

ASK  MaintRepoit  TO  WriteString("Maint  *  +  name  +  *  received  "  +  brokenAaaet. bumperNumber  +  "  at  ’  + 
REALTOSTR(SimTimeO)); 

ASK  MaintReportTO  WriteLn; 

ASK  MaintRepoit  TO  WriteLn; 

WAIT  FOR  SELF  TO  Repair(brokenAaaet) 

END  WATT; 

ASK  MaintReport  TO  WriteStringCMAINT  "  +  name  +  ’  RELEASED  *  +  brokenAaaet.bumperNumber  +  ’  at  *  + 
REALTOSTR(SimTimeO)); 

ASK  MaintReport  TO  WriteLn; 

ASK  MaintReport  TO  WriteLn; 

END  METHOD  {ReceiveWork}; 

{ - } 

TELL  METHOD  Repair  (IN  brokenAaaet :  AaaetObj); 

{ - } 

VAR 

repairTime  :  REAL; 

BEGIN 

repairTime  :»  brokenAaaet. adminLogTime  +  (brokenAaaet. maintManHoura *  brokenAaaet. odometer); 

WATT  DURATION  repairTime 
END  WAIT; 

ASK  brokenAaaet  TO  ReaetOdometer; 

TELL  myMotorpool  TO  Retu  mFixedAaaet  (brokenAaaet); 

{■end  aaaet  back} 

END  METHOD  {Repair}; 

END  OBJECT  {Maintenance}; 

END  {IMPLEMENTATION}  MODULE  {maim}. 
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{ . . 

DEFINITION  MODULE  SUPPLY; 

{Method!  and  field!  for  supply  point!  *re  defined  here,  to  include  checking  stock,  resupplying,  loading,  unloading  and  receiving 
supplies} 

FROM  lOMod  IMPORT  StreamObj; 

FROM  GrpMod  IMPORT  QueueObj; 

FROM  ResMod  IMPORT  ResourceObj; 

FROM  GLOBAL  IMPORT  AssetTypeQueue,  NodeNameType,  CargoTypeQueue,  SupplyClassType, 

SupplyRecordTypeQueue,  RequestTypeQueue,  ConsumerQueue; 

FROM  RGLOBAL  IMPORT  SHierRecType; 

FROM  SUPREC  IMPORT  SupplyRecordObj; 

FROM  REQUEST  IMPORT  RequeitObj; 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  CARGO  IMPORT  CargoObj; 

EXPORTTYPE 

SupplyObj  =  OBJECT;  FORWARD; 

TYPE 

Supply PointQueue  »  ResourceObj; 

MaterialHandlingEquipmemQueue  =  ResourceObj; 

ConvoyTypeQueue  =  QueueObj; 

Supply PointsQueue  “  QueueObj; 

Supply PointObj  «=  OBJECT 

MHE  :  MaterialHandlingEquipmemQueue; 

ASK  METHOD  Objlnit; 

END  OBJECT  {SupplyPoimObj}; 

SupplyObj  -  OBJECT 

name  :  NodeNameType; 
location  :  STRING; 
myMotorpool  :  MotorpoolObj; 

RiySupplySource :  SupplyObj; 
inventory  :  CargoTypeQueue; 
supplyRecords :  SupplyRecordTypeQueue; 
waiting  :  CargoTypeQueue; 
loadTime  :  REAL; 
unloadTime ;  REAL; 
cargoToLoad  :  CargoTypeQueue; 
timeToCheckStock :  REAL; 
numberOfReceivers  :  INTEGER; 
numberOfLoaders :  INTEGER; 
numberOfMHE ;  INTEGER; 
receiving  PointsQueue :  SupplyPointQueue; 
loading PointiQueue :  SupplyPointQueue; 

ReceivingPoints ;  SupplyPoinuQueue; 

LoadingPointa  :  SupplyPoinuQueue; 
convoyQueue ;  ConvoyTypeQueue; 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

ASK  METHOD  Adjustlnventory  (IN  supplyltem  :  CargoObj; 

IN  amount  ;  REAL); 

ASK  METHOD  GetMyMotorpoolQN  Motorpool  ;  MotorpoolObj); 

ASK  METHOD  OetFieldi  (IN  Name  :  STRING); 

ASK  METHOD  GetConsumptionRates(IN  Consumers  :  ConiumerQueue); 

ASK  METHOD  GetMotorpool(IN  Motorpool  :  MotorpoolObj); 

ASK  MET  HOD  GetSupplyRecord(IN  itemName  :  STRING; 

IN  SupplyClau  :  STRING; 
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OUT  Record  :  SupplyRecordObj; 

IN  nonseparable :  BOOLEAN); 

ASK  METHOD  GetSupplySource  (IN  SupplySource  :  SupplyObj); 

TELL  METHOD  PrepnreToStartSuppiy(IN  dayToEndConsuming  :  INTEGER); 

TELL  METHOD  Resupply  (IN  RequestList  :  RequestTypeQueue); 

TELL  METHOD  Collectltems  (IN  RequestList  :  RequestTypeQueue); 

TELL  METHOD  CheckStock; 

TELL  METHOD  ReceiveSupplies  (IN  AssetList  :  AssetTypeQueue; 

IN  priority  :  REAL; 

IN  ReceivingPt  :  SupplyPointObj); 

TELL  METHOD  LoedSupplies  (IN  AssetList  :  AssetTypeQueue; 

IN  priority  :  REAL; 

IN  LoedingPoint :  SupplyPointObj); 

ASK  METHOD  Admitltem  (IN  SupplyRecord  :  SupplyRecordObj; 

IN  cargo  :  CargoObj); 

TELL  METHOD  Reports tatus  (IN  SupplyReport :  StreamObj); 

END  OBJECT  {Supply}; 

EconomyObj  =»  OBJECT(SupplyObj); 

OVERRIDE 

TELL  METHOD  Resupply  (IN  RequestList ;  RequestTypeQueue); 

END  OBJECT  {Economy}; 

END  {DEFINITION}  MODULE  {supply}. 

IMPLEMENTATION  MODULE  SUPPLY; 

FROM  SimMod  IMPORT  SimTime; 

FROM  IOMod  IMPORT  StreamObj; 

FROM  GLOBAL  IMPORT  NodeNameType,  CargoTypeQueue,  AssetTypeQueue,  SupplyClassType, 
SupplyRecordTypeQueue, RequestTypeQueue,  ConsumerQueue,  DisposeOfQueue; 

FROM  RGLOBAL  IMPORT  SHierRecType.SupplySHArray; 

FROM  FINDSH  IMPORT  FindSHRec, 

FROM  ASSET  IMPORT  AasetObj; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  FINDS  UP  IMPORT  FindCargo,  Findltem,  FillRequest,  RndRec; 

FROM  SUPREC  IMPORT  SupplyRecordObj; 

FROM  DISPREQ  IMPORT  DiapoaeRequestTypeQueue; 

FROM  REQUEST  IMPORT  RequestObj; 

FROM  Debug  IMPORT  TraceStream; 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  UNITS  IMPORT  ConsumerObj; 

OBJECT  SupplyPointObj; 

{ - } 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(MHE); 

END  METHOD  {Objlnit}; 

END  OBJECT  {SupplyPointObj}; 

OBJECT  SupplyObj; 

{ - } 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEWfinventory); 

NEW(supplyRecords); 


117 


r 


NEW(waiting); 

NEW(receivingPointaQueue); 

NEWQoadingPointaQueue); 

NEW(Receiving  Points); 

NEW(LoadingPoints); 

NEW(convoyQueue); 

END  METHOD  {Objlnit}; 

{ - } 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

{ - > 

BEGIN 

name  :  =  MyName; 

END  METHOD  {GetName}; 

{ - } 

ASK  METHOD  Adjuatlnventory  (IN  supply  Item  :  CargoObj; 

IN  amount :  REAL); 

{ - } 

BEGIN 

IF(aupplyltem.nonaepanble) 

ASK  inventoiy  TO  Add  (aupplyltem); 

ELSE 

ASK  aupplyltem  TO  ChangeWeight(amount); 

END  IF; 

END  METHOD  {Adjuatlnventoty}; 

{ - } 

ASK  METHOD  GetMyMotoipool  (IN  Motorpool  :MotorpooIObj); 

{ - } 

BEGIN 

myMotorpool  :«  Motorpool; 

END  METHOD  {GetMyMotorpool}; 

{ - } 

ASK  METHOD  QetFields(IN  Name  :  STRING); 

{ - } 

VAR 

Supply  Record  :  SupplyRecordObj; 
aupplyCIaaa  :  SupplyClassType; 
methodOfReaupply  :  STRING; 
i,  j,  dayaOSupply  :  INTEGER; 
stocklvl,  upperlvl,  priority  :  REAL; 
cargo  :  CargoObj; 

SupplySHRec  :  SHierRecType; 

Receiving  Point :  Supply  PointObj; 

Loading  Point :  Supply  PointObj; 

BEGIN 

FindSHRec(SupplySHAiray,  Name,  SupplySHRec); 
location  : «  Name; 

j:»  l; 

timeToCheckStock  :«  STRTOREAL(SupplySHRec.OwnedString[j]); 
INCO); 

numberOfReceivera  :«  STRTOINT(SupplySHRec.OwnedString(j|); 

INC(j); 

numberOfLoadert  :=  STRTOINT(SupplySHRec.OwnedString[j]); 

INCO); 

numberOIMHE  :  =  STRTOINT(SupplySHRec.OwnedString{j)); 

INCO); 

loadTime  STRTOREAL(SupplySHRec.OwnedString(j]); 

INCO); 
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unloadTime  :=  STRTOREAL(SupplySHRec.OwnedString[j]); 
INCO); 


ASK  receiving  PointsQueue  TO  Create(numberOfReceivers); 

FOR  i  :=  1  TO  numberOfReceivers 
NEW(Receiving  Point); 

ASK  ReceivingPoint.MHETO  Create  (numberOfMHE); 

ASK  ReceivingPoinU TO  Add  (Receiving Point); 

END  FOR; 

ASK  loadingPointaQueueTO  Cre*te(numberOfLo»der»); 

FOR  i  : «  1  TO  numberOfLoaden 
NEW(Loading  Point); 

ASK  LoadingPoint.MHETO  Create  (numberOfMHE); 

ASK  LoadingPointa  TO  Add  (LoadingPoint); 

END  FOR; 

REPEAT 

NEW(SupplyRecord) ; 

NEW(car*o); 

aupplyClaaa :»  SupplySHRec.OwnedString[j]; 

INCO); 

method  OfResupply  :=  SupplySHRec.OwnedStringU);INC(j); 
priority  :«=  STRTOR£AL(SupplySHRec.OwnedString[j]); 

INC®; 

■tocklvl  :«  STRTOREAL(SupplySHRec.OwnedString[j]); 

INCO); 

dayaOSupply :«  STRTOINT(SupplySHRec.OwnedString[j]); 

INCO); 

uppertvl  :«  STRTOREAL(SupplySHRec.OwnedString[j)); 

INCO); 

ASK  SupplyRecord  TO  GetFieldi  (aupplyClaas,  stocklvl,  dayaOSupply,  upperlvl,  FALSE); 

ASK  supplyRecorda  TO  Add  (SupplyRecord); 

ASK  cargo  TO  OetSupplyFielda  (aupplyClaaa,  atocklvl,  0.0,  methodOfReaupply,  priority  ,  FALSE); 

ASK  inventory  TO  Add  (cargo); 

U.mL(SuppIySHRec.OwnodString(jl  -  "EOF'); 

END  METHOD  {Oetrielda}; 

{ - } 

ASK  METHOD  OetConaumptionRatea(IN  Conaumera  :  ConaumerQueue); 

{ - } 

VAR 

conaumar  :  ConaumetObj; 

OutRec  :  SupplyRecordObj; 

BEGIN 

conaumer  :«■  ASK  Conaumera  FiratO; 

REPEAT 

FindRec(contumer.name,  aupplyRecorda,  OutRec); 

IF(OutRec  -  NILOBJ) 

ASK  TraceStream  TO  WriteString(’********************Miatake,  should  have  been  a  record  matching  consumer  with 
SupplyRecord  "); 

ASK  TraceStream  TO  WriteLn; 

ELSE 

ASK  OutRec  TO  GetConaumptionRate  (consumer. dailyConsumption); 

END  IF; 

conaumer  : »  ASK  Conaumera  Next(conaumer); 

UNTIUconaumer  «  NILOBJ); 

END  METHOD  {GetConaumptionRatea}; 
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\ - / 

ASK  METHOD  GetMotorpool(TN  Motorpool  :  MotorpoolObj); 

{ - } 

BEGIN 

my  Motorpool  :  =  Motorpool; 

END  METHOD  {GetMotorpooI}; 

{ - } 

ASK  METHOD  GetSuppIyRecord(IN  itemName  :  STRING; 

IN  SupplyClaaa  :  STRING; 

OUT  Record  :  SupplyRecordObj; 

IN  nonaeparable :  BOOLEAN); 

{ - } 

VAR 

auppfyClaaa ;  SupplyClaaaType; 
dayaOSupply  ;  INTEGER; 
atocklvl,  upperlvl  :  REAL; 

BEGIN 

NEW(Record); 
aupplyClau ;»  SupplyClaaa; 
atocklvl  :=»  0.0; 
dayaOSupply ;  “  0; 
upperlvl  :=  0.0; 

ASK  Record  TO  GetFielda  (aupplyClaaa,  atocklvl,  dayaOSupply,  upperlvl,  nonaeparable); 
END  METHOD  {GetSupplyRecord}; 

{ - } 

ASK  METHOD  GetSupplySource  (IN  SupplySource  :  SupplyObj); 

{ - } 

BEGIN 

mySupplySource :  ■  SupplySource; 

END  METHOD  {GetSupplySource}; 

{ - } 

TELL  METHOD  PrepareToStartSupply(IN  dayToEndConsuming  :  INTEGER); 

{ - } 

VAR 

i  :  INTEGER; 

ReaupplyLiat :  RequeatTypeQueue; 

Supply Rec  :  SupplyRecordObj; 
twenty  FourHoura :  REAL; 

BEGIN 

twenty  FourHoura  :=  24.0; 

FOR  i  :■=  1  TO  dayToEndConauming 

TELL  SELF  TO  CheckStock  IN  (twenty FourHoura  +  timeToCheckStock); 
twenty  FourHoura  :=  twenty  FourHoura  +  24.0; 

END  FOR; 

END  METHOD  {PrepareToStartSupply}; 

{ - } 

TELL  METHOD  Reaupply  (IN  RequeatLiat  :  RequeatTypeQueue); 

{ - } 

VAR 

requeet  :  RequeatObj; 
cargoToLoad  :  CargoTypeQueue; 

BEGIN 

WAIT  FOR  SELF  TO  CollectItema(RequeatLiat); 

ON  INTERRUPT  TERMINATE; 

END  WAIT; 

Diapo*eOiQueue(RequeatUtt) ; 

END  METHOD  {Reaupply}; 
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\ - / 

TELL  METHOD  Coilectltems  (IN  Reque*tLi«t  :  RequettTypeQueue); 

< - j 

VAR 

Request, CloneRequeat,  AwaitedRequeat :  RequeatObj; 

CargoToLoad,  ReatToLoad  :  CargoTypeQueue; 

SupplyRequeatLiat,  AwaitingRequeatLiat  :  RequeatTypeQueue; 

OutRec  :  Supply  RecordObj; 
good  Hem  :  BOOLEAN; 
itemName,  Requeator  ;  STRING; 
cargo  :  CargoObj; 
leftToFill  ;  REAL; 

BEGIN 

NEW(SupplyRequeatList); 

NEW(AwaitingRequeatLiat); 

NEW(CargoToLoad); 

Request  ;=  ASK  RequeatLiat  FrratO; 

Requeator  :«  Requeat. requeator; 

REPEAT 

itemName  :*  Requeat. item; 

FindRec(itemName,  aupplyRecorda,  OutRec); 

IF (OutRec  >  NILOBJ) 

{ASK  SELF  TO  GetSupplyRecord(itemName,0.0,0.0,0.0,FALSE); 

NEW(CIoneRequeat); 

ASK  SupplyRequeatLiatTO  Add  (CloneRequeat); 

CloneRequeat :«  CLONE(Requeat); 

ASK  AwaitingRequeatLiat  TO  Add  (CloneRequeat);} 

ELSE 

goodltam  :«=  FALSE; 

FindCargo(OutRec,  inventory,  cargo,  Requeat. amountReq, 
leftToFill); 

FillRequeot(SELF. name,  Requeat. requeator,  OutRec,  cargo,  CargoToLoad,  SupplyRequeatLiat,  AveiangReqiirrtl  irt, 
leftToFtll); 

END  IF; 

Requeat :»  ASK  RequeatLiat  Next(Requeal); 

UNTIL(Requeat  -  NILOBJ); 

IF(ASK  CargoToLoad  numberln  >  0) 

TELL  myMotorpool  TO  ScheduleMiaaion(Requeator,  CargoToLoad,  NILOBJ); 

END  IF; 

IF(ASK  SupplyRequeatLiat  numberln  >  0) 

WAIT  FOR  mySupplySourceTO  Resupply  (Supply  RequeatLiat) 

ON  INTERRUPT 
TERMINATE; 

END  WAIT; 

NEW(ReatToLoad); 

AwaitedRequeat  :=  ASK  AwaitingRequeatLiat  FirstO; 

WHILE( AwaitedRequeat  <  >  NILOBJ); 

itemName  AwaitedRequeat  .item; 

FindRec(itemName,  aupplyRecorda,  OutRec); 

IF  OutRec  -  NILOBJ 

ASK  TraceStreamTO  WriteString('item  not  found'); 

END  IF; 

FrndCargofOutRec,  inventory,  cargo,  AwaitedRequeat. amountReq, 
leftToFill); 

IF  cargo  «=  NILOBJ 

ASK  TraceStreamTO  WriteStringCahould  have  been  cargo"); 

ELSE 

ASK  ReatT oLoad  TO  Add  (cargo); 

END  IF; 

AwaitedRequeat  :  ■=  ASK  AwaitingRequeatLiat  Next(AwaitedRequest); 

END  WHILE; 
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TELL  myMotorpool  TO  ScheduleMission(Requestor,  RestToLoad,  NlLOB  ; 

END  IF; 

DiaposeO(Queue(SupplyRequestList) ; 

DispoaeOfQueue(AwaitingRequestList); 

DisposeOfQueue(CargoToLoad); 

DisposeOfQueue(RestT  oLoad) ; 

END  METHOD  {Coilectltems} ; 

{ - } 

TELL  METHOD  CheckStock; 

{ - } 

VAR 

Record  :  SupplyRecordObj; 

RequeatLiat  ;  RequestTypeQueue; 

Request  :  RequeatObj; 
amount  :  REAL; 

BEGIN 

NEW(RaqueatLiat); 

Record  :«  ASK  aupplyRecorda  First  0; 

REPEAT 

IF (Record. stockLeve!  <  »  (Record. dailyConaumption * 

FLOAT(Record.daysOfSupply)))  AND  (Record. upperLevel  - 
Record. stockLevel-  Record  .onOrder  >  0.0) 

amount  :»  Record  .upperLevel  -  Record.  atockLevel  - 
Record.  onOrder; 

NEW(Requcat); 

ASK  Request  TO  OetFielda  (Record. aupplyClaaa,  amount,  SFLF.location); 

ASK  RequeatLiat  TO  Add(Requeat); 

END  IF; 

Record  :  “  ASK  aupplyRecorda  Ncxt(Record); 

UNTTL(Record  -  NILOBJ); 

IF (Request  Li  at  <  >  NILOBJ) 

IF(ASK  RequeatLiat  numberln  >  0) 

TELL  mySupplySourceTO  ResuppIy(RequeatLiat); 

END  IF; 

END  IF; 

Dispose  OfQueue(Requeat  List) ; 

END  METHOD  {CheckStock}; 

{ - } 

TELL  METHOD  ReceiveSuppliea  (IN  AsectUst  :  AaaetTypeQueue; 

IN  priority  :  REAL; 

IN  ReceivingPoint ;  SupplyPointObj); 

{ - , 

VAR 

asset  :  AsaetObj; 

OutRec  :  SupplyRecordObj; 
item  ;  CargoObj; 

MHEuaed  ;  INTEGER; 

BEGIN 

MHEuaed  ;<•  0; 

asset  ;•  ASK  AasetLitt  First  0; 

REPEAT 

WAIT  FOR  ReceivingPoint. MHF TO  Give  (SELF,  I); 

INC(MHEueed); 

WHILE  (ASK  asset. cargoHold  numberln  >  0) 

item  :  =  ASK  aaaet.cargoHold  TO  Remove  0; 

FindRec(item.claasOfSupply,  aupplyRecorda,  OutRec); 

IF(OutRec  -  NILOBJ) 

GetSupplyRecordOtem.ciassOfSupply.item.classOfSupply,  OutRec,  TRUE); 
ASK  aupplyRecorda  TO  Add(OutRec); 
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EN  J  IF; 

WAIT  FOR  diet  TO  UnloadCargo  (0.0,  item. weight,  item. length); 
END  WAIT; 

IF(OutRec  <  >  NILOBJ) 

AdmitItem(OutRec,  item); 

ELSE 

ASK  TreceStream  TO  WriteStringfGot  a  NILOBJ  for  OUTREC!  "); 

ASK  TraceStream  TO  WriteLn; 

END  IF; 

END  WHILE; 

IF(MHEuted  >  =  ReceivingPoint.MHE.MaxResourcea) 

WAIT  DURATION  unloadTime 
END  WAIT; 

ASK  ReceivingPoint.MHE  TO  TakeBack(SELF,  MHEuaed); 
MHEuaed  :=  0; 

END  IF; 

END  WATT; 

a <aet  -  —  ASK  AsaetLiat  Next  (aaaet); 

UNTIL  (aaaet  =  NILOBJ); 

IF((MHEuaed  <  ReceivingPoint.MHE. MaxReaourcea)  AND  (MHEuaed  <  >  0)) 
WATT  DURATION  unloadTime 
END  WATT; 

ASK  ReceivingPoint  .MHE  TO  TakeBack(SELF,  MHEuaed); 

END  IF; 

END  METHOD  {ReceiveSuppliea}; 

{ - } 

TELL  METHOD  LoadSuppliea  (IN  AaaetLiat  :  AaaetTypeQueue; 

IN  priority  :  REAL; 

IN  LoadingPoint :  SupplyPointObj); 

{ - } 

VAR 

aaaet  :  AaaetObj; 

MHEuaed  :  INTEGER; 

BEGIN 

MHEuaed  :»  0; 

aaaet  :**  ASK  AaaetLiat  Firet  0; 

REPEAT 

WAIT  FOR  LoadingPoint. MHE  TO  Give  (SELF,  1); 

INC(MHEuaed); 

IF (MHEuaed  >  =  LoadingPoint. MHE. MaxReaourcea) 

WAIT  DURATION  loadT.rr.e 
END  WAIT; 

,  ASK  LoadingPoint. MHE  TO  TakeBack(SELF,  MHEuaed); 

MHEuaed  :=  0; 

END  IF; 

END  WAIT; 

aaaet  :  =  ASK  AaaetLiat  Next  (aaaet); 

UNTIL  (aaaet  «  NILOBJ); 

IF((MHEuaed  <  LoadingPoint. MHE. MaxReaourcea)  AND  (MHEuaed  <  >  0)) 

WAIT  DURATION  loadTime 
END  WAIT; 

ASK  LoadingPoint. MHE  TO  TakeBack(SELF,  MHEuaed); 

END  IF; 

END  METHOD  {LoadSuppliea}; 


ASK  METHOD  Admitltem  (IN  Supply  Record  :  Supply  RecordObj; 
IN  cargo  :  CargoObj); 

{ - } 

VAR 
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supply  Item  :  CargoObj; 

BEGIN 

FindItem(ASK  cargo  clessOfSupply,  inventory,  supplyltem); 

IF(supplyItem  -  NILOBJ) 

ASK  inventory  TO  Add(cargo); 

ELSE 

ASK  SELF  TO  Adjustlnventory(supplyltem,csrgo.  weight); 

END  IF; 

ASK  SupplyRecord  TO  Adjust(cargo.weight,  cargo. nonsepsrable); 

DISPOSE(cargo); 

END  METHOD  {Admithem}; 

{ - } 

TELL  METHOD  ReportStatus  (IN  SupplyReport :  StreamObj); 

{ - ) 

VAR 

SupplyRec  ;  SupplyRecordObj; 

BEGIN 

ASK  SupplyReport  TO  WriteStringC********************************************************"); 

ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteString('*******Status  for  "  +  name  +  ’  SUPPLY  POINT.  Time  is  *  +  REALTOSTR(SimTimeO)); 
ASK  SupplyReport  TO  WriteLn; 

SupplyRec  :  =  ASK  supplyRecorde  First  0; 

REPEAT 

ASK  SupplyReport  TO  WriteString(“ - Record  for  *  +  SupplyRec. supplyClass); 

ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteStringC - "); 

ASK  SupplyReport  TO  WriteLn; 

IF  SupplyRec.nonSeparable 

ASK  SupplyReport  TO  WriteStringC  number  on  hand  is  "  +  INTTOSTR  (TRUNC(SupplyRec.stockLevel))); 
ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteStringC**************************’); 

ASK  SupplyReport  TO  WriteLn; 

ELSE 

ASK  SupplyReport  TO  WriteStringCstock  level  is  *  +  REALTOSTR  (SupplyRec. stockLevcl)); 

ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteStringCdays  of  supply  is  "  +  INTTOSTR  (SupplyRec.daysOfSupply)); 

ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteStringCupper  level  is  *  +  REALTOSTR  (SupplyRec.upperLevel)); 

ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteStringCdaily  consumption  is  ’  +  REALTOSTR  (SupplyRec  .dailyConsumption)); 

ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteStringCon  order  is  "  +  REALTOSTR  (SupplyRec.onOrder)); 

ASK  SupplyReport  TO  WriteLn; 

ASK  SupplyReport  TO  WriteStri;  ^("•••»*************»«»****«*******»*"); 

ASK  SupplyReport  TO  WriteLn; 

END  IF; 

SupplyRec  :  =  ASK  supplyRecords  Next  (SupplyRec); 

UNTIL  (SupplyRec  =  NILOBJ); 

END  METHOD  {ReportStatus}; 

END  OBJECT  {Supply}; 

OBJECT  EconomyObj; 

{ - } 

TELL  METHOD  Resupply  (IN  RequestList  ;  RequestTypeQueue); 

{ - } 

VAR 

Request  :  RequestObj; 

OutRec  ;  SupplyRecordObj; 
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HemName  :  STRING; 

cargo,  separatedCargo :  CargoObj; 

BEGIN 

Request  :  =  ASK  Request  Li  ft  FirstO; 

REPEAT 

itemName  :=  Request  .item; 

FindRec(itemName,  supplyRecordi,  OutRec); 

IF(OutRec  =  NILOBI) 

ASK  SELF  TO  GetSupplyRecord(itemNsme,0.0,0.0,0.0); 

ELSE 

FindItem(itemName,  inventory,  cargo); 

ASK  cargo  TO  SeparateCargo  (Request. amountReq,  teparatedCargo); 
ASK  OutRec  TO  Adjust  (-(Request. amountReq),  FALSE); 

END  DF; 

FindNode(Request.  requestor,  Node); 

ASK  Node.mySupplyTO  Admit  (separatedCargo); 

Request  :=  ASK  RequestList  Next(Request); 

UNTIL(Request  *  NILOBI); 

END  METHOD  {Resupply}; 

{ - } 

TELL  METHOD  CheckStock; 

{ - } 

VAR 

Record  ;  Supply  RecordObj; 

RequestList :  RequestTypeQueue; 

Request :  RequeatObj; 
amount :  REAL; 

BEGIN 

NEW(RequestList); 

Record  :  =  ASK  supplyRecords  First  0; 

REPEAT 

IF (Record. it ockLevel  <»  (Record. dailyConsumption * 

FLOAT (Record.day aOfSupply )))  AND  (Record.upperLevel  - 
Record. stockLevel-  Record. onOrder  >  0.0) 

amount  :«  Record.upperLevel  -  Record. stockLevel  - 
Record.  onOrder; 

END  IF; 

Record  :»  ASK  supp’. /Records  Next(Record); 

UNTBURecord  -  NILOBI); 

END  METHOD  {CheckStock}; 

END  OBJECT  {Economy}; 

END  {IMPLEMENTATION}  MODULE  {supply}. 

<**•* . . . } 

DEFINITION  MODULE  SUPREC; 

{Supply  records  for  each  supply  point  are  defined  here} 

FROM  GLOBAL  IMPORT  RequestTypeQueue,  SupplyClassType; 

TYPE 

SupplyRecordObj  *  OBJECT 

supplyClaas  :  SupplyClassType;  {CL1  ...CL9,  Supply  Clan} 

stockLevel  ;  REAL; 

daysOfSupply :  INTEGER; 

upperLevel .  REAL; 

dailyConsumption ;  REAL; 
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onOrder  :  REAL; 
nonSepanble :  BOOLEAN; 


ASK  METHOD  GetFields(IN  class  :  SupplyClassType; 

IN  itockL  :  REAL; 

IN  daysOS  :  INTEGER, 

IN  upperL :  REAL; 

IN  nonsepanble :  BOOLEAN); 

ASK  METHOD  GetConsumptionRate(IN  ConsumptionRate  :  REAL); 
ASK  METHOD  Adjust  (IN  Adjustment :  REAL; 

IN  nonsepanble ;  BOOLEAN); 

END  OBJECT  {SupplyRecord}; 

END  {DEFINITION}  MODULE  {suprec}. 

IMPLEMENTATION  MODULE  SUPREC; 

FROM  Debug  IMPORT  TrtceStream; 

FROM  GLOBAL  IMPORT  SupptyCUssType,  RequestTypeQueue; 

FROM  REQUEST  IMPORT  RequestObj; 

OBJECT  SupplyRecoidObj; 

{ - } 

ASK  METHOD  GetFields(IN  Supply  Class  :  SupplyClasaType; 

IN  StockLevel :  REAL; 

IN  DeysOfSupply :  INTEGER; 

IN  UpperLevel :  REAL; 

IN  NonSeparable :  BOOLEAN); 

{ - } 

BEGIN 

supplyClass :  —  SupplyClass; 

StockLevel  :«  StockLevel; 
daysOISupply  :=  DeysOfSupply; 
upperLevel :  -  UpperLevel; 
nonSeparable : «  NonSepartble; 

END  METHOD; 

{ - } 

ASK  METHOD  GetConsumptionRate(IN  ConsumptionRate  ;  REAL); 

{ - } 

BEGIN 

dailyConsumption  ConsumptionRate; 

END  METHOD  {GetContumptionRate} ; 

{ - } 

ASK  METHOD  Adjust(IN  Adjustment ;  REAL; 

IN  nonsepanble :  BOOLEAN); 

{ - , 

VAR 

short  :  REAL; 

BEGIN 

IF(nonscpanble) 

StockLevel  :»  StockLevel  +  (Adjustment/ Adjustment); 

ELSE 

StockLevel  :«  StockLevel  +  Adjustment; 

END  IF; 

END  METHOD  {Adjust}; 

END  OBJECT  {SupplyRecord}; 

END  {IMPLEMENTATION}  MODULE  {suprec}. 
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'} 


DEFINITION  MODULE  FINDSUP; 

{ConUini  procedure*  that  necessity  in  the  norms!  activities  of  i  supply  point} 

FROM  GLOBAL  IMPORT  CargoTypeQueue,  RequestTypeQueue,  SuppIyRecordTypeQueue; 
FROM  CARGO  IMPORT  CergoObj; 

FROM  SUPREC  IMPORT  SupplyRecordObj; 

FROM  REQUEST  IMPORT  RequestObj; 

FROM  RECORDS  IMPORT  VehiclesRec,  VehTypeRec; 


{- 


-} 


PROCEDURE  FindCargo(IN  Supply  Record  :  SupplyRecordObj; 
IN  inventory  :  CargoTypeQueue; 

OUT  cargo  :  CirgoObj; 

IN  amountReq  :  REAL; 

OUT  leflToFill  :  REAL); 

{ - } 

{ - } 

PROCEDURE  Findltem(IN  itemName  :  STRING; 

IN  inventory  ;  CargoTypeQueue; 

OUT  item  :  CargoObj); 

{ - > 

< - } 

PROCEDURE  FillRequest(IN  Supply  :  STRING; 

IN  Requestor  :  STRING; 

IN  SupplyRecord  :  SupplyRecordObj; 

IN  cargo  :  CargoObj; 

INOUT  catgoToMove :  CargoTypeQueue; 
INOUT  RequestList  :  RequestTypeQueue; 

INOUT  AwaitingList  :  RequestTypeQueue; 

IN  leftToFill  :  REAL); 

{ - } 

{ - } 

PROCEDURE  FindRec(IN  itemName  :  STRING; 

IN  SupplyRecord* :  SuppIyRecordTypeQueue; 

OUT  OutRec  :  SupplyRecordObj); 

{ - } 

{ - } 

PROCEDURE  FindAssetTypeRecord  (IN  TypeOfAsset  :  STRING; 

IN  AssetsRecord  :  VehiclesRec; 

OUT  AssetTypeRec  :  VehTypeRec); 

{ - ) 


END  {DEFINITION}  MODULE  {findsup}. 


IMPLEMENTATION  MODULE  FINDSUP; 

FROM  Debug  IMPORT  TraceStream; 

FROM  GLOBAL  IMPORT  CargoTypeQueue,  RequestTypeQueue,  SuppIyRecordTypeQueue; 
FROM  CARGO  IMPORT  CargoObj; 

FROM  SUPREC  IMPORT  SupplyRecordObj; 

FROM  SUPPLY  IMPORT  SupplyObj; 

FROM  REQUEST  IMPORT  RequestObj; 

FROM  RECORDS  IMPORT  VehiclesRec,  VehTypeRec; 


{ - } 

PROCEDURE  FindCargo(IN  SupplyRecord  :  SupplyRecordObj; 
IN  inventory  :  CargoTypeQueue; 

OUT  cargo  :  CargoObj; 

IN  amountReq  :  REAL; 

OUT  leftToFill  :  REAL); 

{ - } 
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VAR 


item  :  CargoObj; 
found  :  BOOLEAN; 
name  :  STRING; 
amount ;  REAL; 

BEGIN 

item  :  =  ASK  inventory  Flirt  0; 
found  :»  FALSE; 

REPEAT 

IF  (item  =  NILOBI) 

EXIT; 

END  IF; 

name  :=  ASK  item  claaeOfSupply; 

IF  (SupplyRecord.aupplyClata  -  name) 
found  ;=  TRUE; 

ELSE 

item  :«*  ASK  inventory  Next  Otem); 

END  IF; 

UNTIL  (item  -  NILOBI)  OR  (found); 

IF  (item  m  NILOBI) 

cargo  :=  NILOBI; 

ELSE 

IF  (SupplyRecord.atockLevel  >  amountReq) 

ASK  item  TO  SeparateCargo  (amountReq,  cargo); 
ASK  SupplyRecord  TO  Adjuat  (-amountReq,  FALSE); 
ELS  IF  (SupplyRecord.atockLevel  >  0.0) 

amount  :=  amountReq  -  SupplyRecord.atockLevel; 
ASK  item  TO  SeparateCargo  (amount,  cargo); 

ASK  SupplyRecord  TO  Adjuat  (-amount,  FALSE); 
leftToFill  :=*  amountReq  -  amount; 

ELSE 

cargo  :»  NILOBI; 
leftToFill  :«  amountReq; 

END  IF; 

END  IF; 

END  PROCEDURE  {FtndCargo}; 

{ - } 

PROCEDURE  FindItem(IN  itemName  :  STRING; 

IN  inventory  :  CargoTypeQueue; 

OUT  item  :  CargoObj); 

{ - } 

VAR 

found  :  BOOLEAN; 

BEGIN 

item  ;  *  ASK  inventory  Firat  0; 
found  :«  FALSE; 

REPEAT 

IF  Otem  «  NILOBI) 

EXIT; 

END  IF; 

IF  ((ASK  hern  claaaOfSupply)  -  itemName) 
found  TRUE; 

ELSE 

item  :  *  ASK  inventory  Next  (item); 

END  IF, 

UNTIL  Otem  =  NILOBI)  OR  (found); 

END  PROCEDURE  {Findltem}; 

{ - } 

PROCEDURE  FillRequect(IN  Supply  :  STRING; 
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IN  Requestor  :  STRING; 

IN  Supply  Record  :  Supply  RecordObj; 

IN  cargo  ;  CargoObj; 

INOUT  cargoToMove  :  CargoTypeQueue; 

INOUT  Request  Li  it  ;  RequeatTypeQueue; 

INOUT  AwaHingLilt  :  RequeatTypeQueue; 

IN  leftToFill  :  REAL); 

{ - > 

VAR 

Request,copyRequest  :  RequeatObj; 
item  :  STRING; 
amountReq  :  REAL; 

BEGIN 

IF(SupplyRecord  *  NILOBJ) 

ASKTraceStreamTO  WriteString(*Called  Fill  Request  v/ith  a  NILOBJ  Record*); 
ASK  TraceStream  TO  Write  Ln; 

END  IF; 

IF(cargo  <  >  NILOBJ) 

ASK  catgoToMoveTO  Add(cargo); 

ELSE 

NEW(Requcst); 

item  :  =  SupplyRecord.aupplyClaas; 
amountReq  :=  leftToFill; 

ASK  Request  TO  GetFielda(item,amountReq, Supply); 

ASK  RequeatLiat  TO  Add(Requeat); 

NEW(copy  Request); 

item  ;•  SupplyRecord.aupplyClaas; 

amountReq  :•>  leftToFill; 

ASK  copyRequeat  TO  GetFielda(item,atnountReq, Requestor); 

ASK  AwaitingList  TO  Add(copyRequeat); 

END  IF; 

END  PROCEDURE  {FillRequest}; 

{ - } 

PROCEDURE  FindRec(IN  itemName  :  STRING; 

IN  SupplyRecords :  SupplyRecordTypeQueue; 

OUT  OutRec  ;  SupplyRecordObj); 

{ - } 

VAR 

name  :  STRING; 
notFound  :  BOOLEAN; 
rec  :  SupplyRecordObj; 

BEGIN 

rec  :«  ASK  SupplyRecords  First  0; 
notFound  :»  TRUE; 

REPEAT 

IF  (rec  <  >  NILOBJ) 

name  :**  rec.  supply  Class, 

END  IF; 

IF  (name  ■  itemName) 

notFound  :=  FALSE; 

ELSE 

rec  :  =  ASK  SupplyRecorda  Next  (rec); 

END  IF; 

UNTO,  (rec  *  NILOBJ)  OR  (NOT  notFound); 

OutRec  :»  rec; 

END  PROCEDURE  {FindRec}; 

{ - ) 

PROCEDURE  FindAsaetTypeRecord  (IN  TypeOfAsiet :  STRING; 

IN  AsaetsRecord  ;  VehicleaRec; 
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OUT  AssetTypeRec  :  VehTypeRec); 

f - } 

VAR 

foundlt :  BOOLEAN; 

BEGIN 

AssetTypeRec  :=  ASK  AssetsRecord.vehTypeRecListFirst  0; 

REPEAT 

IF(AssetTypeRec.vehType  =  TypeOfAsset) 
foundlt  :=  TRUE; 

ELSE 

AuetTypeRec  :=  ASK  AssetsRecord.vehTypeRecListNext  (AuetTypeRec); 

END  IF; 

UNTDL((AuetTypeRec  =  NILOBJ)  OR  (foundlt)); 

IF(NOT  foundlt) 

ASK  TreceStream  TO  WriteString("***»COULD  NOT  FIND  CORRECT  ASSET  TYPE  RECORD!"); 
ASK  TnceStream  TO  WriteLn; 

END  IF; 

END  PROCEDURE  {FindAuetRecord}; 

END  {IMPLEMENTATION}  MODULE  {findsup}. 


r - -  — ————————  , 

DEFINmON  MODULE  REQUEST; 

{Supply  point!  that  have  shortages  in  their  inventories  use  this  object  to  request  a  resupply  from  their  supply  sources} 
TYPE 

RequestObj  «  OBJECT 
item  :  STRING; 
amountReq  :  REAL; 

requestor  :  STRING;  {Name  of  Node} 

ASK  METHOD  GetFields  (IN  itemName  :  STRING; 

IN  amount :  REAL; 

IN  requestor :  STRING); 

END  OBJECT  {RequestObj}; 

END  {DEFINITION}  MODULE  {request}. 

IMPLEMENTATION  MODULE  REQUEST; 

OBJECT  RequestObj; 

{ - } 

ASK  METHOD  GetFields  (IN  Item  :  STRING; 

IN  AmountReq  :  REAL; 

IN  Requestor  :  STRING); 

{ - } 

BEGIN 

item  :=  Item; 
amountReq  :  =  AmountReq; 
requestor  :  “  Requestor; 

END  METHOD  {GetFields}; 

END  OBJECT  {RequestObj}; 

END  {IMPLEMENTATION}  MODULE  {request}. 

{*•••*•*•*••***• . . . } 

DEFINITION  MODULE  FUELPT; 
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{All  fields  and  methods  of  a  fuelpoint  are  defined  here} 

FROM  ResMod  IMPORT  ResourceObj; 

FROM  GLOBAL  IMPORT  NodeNameType.CargoTypeQueue; 

TYPE 

FuelPumpQueue  =  ResourceObj; 

FuelpointObj  =  OBJECT 
name  :  NodeNameType; 
fuel  Level  :  REAL; 
fuelCap  :  REAL; 
shoitageLeve! :  REAL; 
refuelTime  ;  REAL; 
numberOfPumps  ;  INTEGER; 

FuelPumps  :  FuelPumpQueue; 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

TELL  METHOD  PumpFuel  (IN  FuelUsed  :  REAL; 

IN  RefuelTime  :  REAL); 

ASK  METHOD  GetFields  (IN  name  ;  STRING); 

END  OBJECT  {Fuelpoint}; 

END  {DEFINITION}  MODULE  {fuelpt} . 

IMPLEMENTATION  MODULE  FUELPT; 

FROM  Debug  IMPORT  TraceStream; 

FROM  GLOBAL  IMPORT  NodeNameType.CargoTypeQueue; 

FROM  RGLOBAL  IMPORT  SHierRecType, FuelpoimSH  Array ; 

FROM  FINDSH  IMPORT  FindSHRec; 

OBJECT  FuelpointObj; 

{ - ) 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(FuelPumps) ; 

END  METHOD  {Objlnit}; 

{ - } 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

{ - } 

BEGIN 

name  :=  MyName; 

END  METHOD  {GetName}; 

{ - } 

ASK  METHOD  GetFielda  (IN  name  :  STRING); 

{ - } 

VAR 

i  :  INTEGER; 

FuelpointSHRec  :  SHierRecType; 

BEGIN 

FindSHRec  (FuelpointSHArray,  name,  FuelpointSHRec); 
i  ;=  I; 

REPEAT 

fiielLevel  :=  STRTOREAL  (FuelpointSHRec. OwnedStringli]); 
INCO); 

fuelCap  :»  STRTOREAL  (FuelpointSHRec. OwnedString[i|); 
INCCO; 

refuelTime  :  =  STRTOREAL  (FuelpointSHRec.OwnedStringli)); 
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INC©; 

numberOfPumpt  :=  STRTOINT  (FuelpointSHRec.OwnedString(iJ); 

ASK  FuelPump*TO  Create(numberOfPumps); 

INCCO; 

UNTIL  ((i  >  HIGH(FuelpointSHRec  .OwnedString))  OR 
(FueIpointSHRec.OwnedString[i]  =  *\\")); 

END  METHOD  {GetField*}; 

{ - } 

TELL  METHOD  PumpFuel  (IN  FuelUsed  :  REAL; 

IN  RefuelTime  :  REAL); 

{ - } 

BEGIN 

WATT  DURATION  RefuelTime 

fuelLevel  :=  fuelLevel  -  FuelUsed; 

END  WATT; 

END  METHOD  {PumpFuel}; 

END  OBJECT  {Fuelpoint}; 

END  {IMPLEMENTATION}  MODULE  {fuelpt}. 

DEFINITION  MODULE  UNITS; 

{A  node’*  unit*  method*  and  field*  are  defined  here.  Unit*  consume  supplies  within  ITTSS} 

FROM  GrpMod  IMPORT  QueueObj; 

FROM  GLOBAL  IMPORT  NodeNameType,  CargoTypeQueue,  SupplyCla*sType,  SupplyRecordTypeQueue, 
RequestTypeQueue,  ConaumerQueue; 

FROM  ROLOBAL  IMPORT  SHierRecType; 

FROM  MOTORPL  IMPORT  MotoipoolObj; 

FROM  SUPREC  IMPORT  Supply RecordObj; 

FROM  REQUEST  IMPORT  RequestObj; 

FROM  SUPPLY  IMPORT  SupplyObj; 

EXPORTTYPE 

UniuObj  =  OBJECT;  FORWARD; 

TYPE 

ConsumerObj  •  OBJECT 
name  :  STRING; 
dailyConsumption :  REAL; 

ASK  METHOD  GetFielda(IN  name  :  STRING; 

IN  dailyConsumption :  REAL); 

END  OBJECT  {Consumer}; 

UniuObj  -  OBJECT 

name  :  NodeNameType; 
dayToSUrtConauming :  INTEGER; 
dayToEndConxuming :  INTEGER; 

Consumers :  ConaumerQueue; 
inventory  :  CargoTypeQueue; 
mySupply  :  SupplyObj; 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetName  (IN  MyName  :  STRING); 

ASK  METHOD  GetMySupp!y(IN  Supply  :  SupplyObj); 

ASK  METHOD  OetField*  (IN  Name  :  STRING); 

TELL  METHOD  Prep*reForCon*uming(IN  SupplyRecord* :  SupplyRecordTypeQueue; 

IN  Inventory  :  CargoTypeQueue); 

TELL  METHOD  Con*umeSupplies(IN  SupplyRecord*  :  SupplyRecordTypeQueue; 

IN  Inventory  :  CargoTypeQueue); 
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END  OBJECT  {Unita}; 

END  {DEFINITION}  MODULE  {unit*}. 

IMPLEMENTATION  MODULE  UNITS; 

FROM  GLOBAL  IMPORT  NodeNameType,CargoTypeQueue,SupplyClassType, 
SupplyRecordTypeQueue,RequestTypeQueue; 

FROM  RGLOBAL  IMPORT  SHierRecType.UnitsSHAmy; 

FROM  FINDSH  IMPORT  FindSHRec; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  FINDSUP  IMPORT  FtndRec,  FindCirgo,  Findltem,  FillRequest; 

FROM  SUPREC  IMPORT  SupplyRecordObj; 

FROM  DISPREQ  IMPORT  DisposeRequestTypeQueue; 

FROM  REQUEST  IMPORT  RequestObj; 

FROM  Debug  IMPORT  TraceStream; 

FROM  SUPPLY  IMPORT  SuppIyObj; 

OBJECT  ConaumetObj; 

{ - } 

ASK  METHOD  GetFieId«(IN  Name  :  STRING; 

IN  DailyConaumption :  REAL); 

{ - } 

BEGIN 

name  :*  Name; 

dailyConaumption  :=  DailyCoiuumption; 

END  METHOD  {GetFielda}; 

END  OBJECT  {Consumer}; 

OBJECT  UnitsObj; 

{ - } 

ASK  METHOD  Objlnit; 

{ - } 

BEGIN 

NEW(Consumers); 

NEW  (inventory) ; 

END  METHOD  {Objlnit}; 


{ - } 

ASK  METHOD  OetName  (IN  MyName  ;  STRING); 

{ - } 

BEGIN 

name  : «  MyName; 

END  METHOD  {GetName}; 

{ - } 

ASK  METHOD  OetMySupply  (IN  Supply  :  SuppIyObj); 

{ - } 

BEGIN 


mySupply  ;  <*  Supply; 

ASK  mySupply  TO  GetConaumptionRatea(Consumers); 
END  METHOD  {OetMySupply} ; 

{ - } 

ASK  METHOD  OetFielda(IN  Name  :  STRING); 

( - } 

VAR 

j  :  INTEGER; 

UnitaSHRec  :  SHierRecType; 
consumer  :  ConsumerObj; 
itemName  :  STRING; 
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item  :  CargoObj; 

DailyConaumption :  REAL; 

BEGIN 

FindSHRec(UniuSHArray,  Name,  UnitaSHRec); 

j  :=  1; 

dayToStartConauming  :=  STRTOINT(UniteSHRec.OwnedString[j]); 

INC(j); 

dayToEndConauming :  =  STRTOINT(UnitaSHRec.OwnedStringU)); 

INCO); 

REPEAT 

NEW(conaumer); 

NEW(item); 

itemName  :=  (UnitaSHRec.OwnedStringlj]); 

INCO); 

DailyConaumption :  =  STRTOREAL  (UnitaSHRec.OwnedStringlj]); 

INCO); 

ASK  conaumerTO  GetFielda(itemName,  DailyConaumption); 

ASK  item  TO  GetSupplyFielda  (itemName,  0.0,  0.0,  "genCgo",  0.0,  FALSE); 

ASK  Conaumera  TO  Add(conaumer); 

ASK  inventory  TO  Add(item); 

UNTIL(UnitaSHRec.OwnedStringlj]  =  ’EOF*); 

END  METHOD  {OetFielda}; 

{ - } 

TELL  METHOD  PrepareForConeuming(IN  SupplyRecords  :  SupplyRecordTypeQueue; 

IN  Inventory  :  CargoTypeQueue); 

{ - } 

VAR 

i  ;  INTEGER; 

ReaupplyLiat :  RequeatTypeQueue; 

Supply Rec  :  SupplyRecordObj; 
aupplyRecord  :  SupplyRecordTypeQueue; 
twentyFourHoura :  REAL; 

BEGIN 

twentyFourHoura : »  (24.0  *  FLOAT (dayT oStartConauming)) ; 

FOR  i  :■  dayToStartConauming TO  dayToEndConauming 

TELL  SELF  TO  ConaumeSuppliea(SupplyRecorda,  Inventory)  IN  twentyFourHoura; 
twentyFourHoura  :  >  twentyFourHoura  +  24.0; 

END  FOR; 

END  METHOD  {PnpareForConauming}; 

{ - } 

TELL  METHOD  ConaumeSuppliea(IN  SupplyRecorda  :  SupplyRecordTypeQueue; 

IN  Inventory  :  CargoTypeQueue); 

{ - } 

VAR 

i  :  INTEGER; 

Hem  :  CargoObj; 

ReaupplyLiat :  RequeatTypeQueue; 

OutRac  :  SupplyRecordObj; 
conaumer :  ConaumerObj; 

BEGIN 

conaumer  :*=  ASK  Conaumera  FiratO; 

REPEAT 

FrndRec(conaumer.name,  SupplyRecorda,  OutRec); 

ASK  OutRec  TO  Adjuat  (-(conaumer. dailyConaumption),  FALSE); 

FindItem(OutRec  aupplyClaas,  Inventory,  item); 

ASK  item  TO  Adjuat  (-(conaumer .dailyConaumption)); 
conaumer  :  =  ASK  Conaumera  Next(conaumer); 

UNTIL(conaumer= NILOBI); 

END  METHOD  {ConaumeSuppliea}; 
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END  OBJECT  {Unit*}; 

END  {IMPLEMENTATION}  MODULE  {unit*}. 

{*•*** . * . 


} 


DEFINITION  MODULE  CHECKAS; 

{The  totting  algorithm*  for  matching  cargo  to  assets  are  in  the  following  procedure*.  Standard  sorting  techniques  are  used  and  cargo 
that  cannot  be  loaded  it  put  into  a  waiting  queue} 

FROM  GLOBAL  IMPORT  AtaelTypeQueue; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  CONVOY  IMPORT  Convoy Obj; 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  ASSET  IMPORT  AttetObj; 

{ - } 

PROCEDURE  FindAatet*  (INOUT  Motorpool  :  MotorpoolObj; 

INOUT  Convoy  :  ConvoyObj; 

IN  Load  :  CargoObj; 

INOUT  CouldNotLoadQueue :  AuetTypeQueue); 


PROCEDURE  CheckLoadedAneta (INOUT  Motorpool  :  MotorpoolObj;  IN OUTConvoy ConvoyObj ; 

INOUT  Load  :  CargoObj; 

OUT  cargo AULoaded  :  BOOLEAN); 

{ - } 

END  {DEFINITION}  MODULE  {check**}. 

IMPLEMENTATION  MODULE  CHECKAS; 

FROM  Debug  IMPORT  TraceStream; 

FROM  GLOBAL  IMPORT  AaaetTypeQueue,  CargoTypeQueue; 

FROM  ASSET  IMPORT  AtaetObj; 

FROM  CARGO  IMPORT  CargoObj; 

FROM  FTNDSHP  IMPORT  FindShorteatPath; 

FROM  CONVOY  IMPORT  ConvoyObj; 

FROM  MOTORPL  IMPORT  MotorpoolObj; 

FROM  RECORDS  IMPORT  VehTypeRec; 

FROM  FINDSUP  IMPORT  FrndAaaetTypeRecord; 

{INPUT  A  LOAD.  FINDS  AN  ASSET  AND  LOADS  CARGO  IN  CARGOHOLDS.  IF  ASSETS  ARE  PREVIOUSLY  LOADED, 
WILL  CHECK  THEM.  RETURNS  THE  ASSET  IN  A  CONVOY} 

{ - } 

PROCEDURE  FindAaaeti  (INOUT  Motorpool  :  MotorpoolObj; 

INOUT  Convoy  :  ConvoyObj; 

IN  Load  :  CargoObj; 

INOUT  CouldNotLoadQueue:  AuetTypeQueue); 

{ - } 

VAR 

ca rgoWeight,  cargoLength, 

maxCanBe  Loaded,  maxCanBePutOn  :  REAL; 

aaaet,  biggest Ataet,  amallettAuet  :  AttetObj; 

cargo  AULoaded,  aliCargoWillFrt,  ataetAvailable  :  BOOLEAN; 

choaenAuet :  AtaetObj; 

aepa  rated  Load  :  CargoObj; 

VehTypeRecord  :  VehTypeRec; 

BEGIN 

cargoAHLoeded  : «  FALSE; 

EF(Convoy  <  >  NDLOBJ) 

Chec kLoaded Aaaet* (Motorpool,  Convoy ,  Load,  cargoAHLoaded); 

END  IF; 
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{til  the  cargo  possible  has  been  loaded  on  available  space  on  vehicles  already  in  convoy) 

REPEAT 

asset  :«  ASK  Motorpool.AlgorithmQueue First  0; 

REPEAT 

IF(asaet. model  =  "BIO") 

biggest  Asset  :=  asset; 

ELS  IF (asset,  model  =  "SMALL") 
smallest  Asset  :«=  asset; 

END  IF; 

asset  :  =  ASK  Motorpool.AlgorithmQueue  Next(asset); 

UNTILfssset  «  NILOBI); 

cargo  Weight  :  =  Load,  weight; 

cargoLength  :  =  Load. length; 

assetAvailable  :  =  FALSE; 

asset  :«  ASK  Motorpool.AssetList  First  0: 

IF  (asset  =  NILOBI) 

assetAvailable  ;  —  FALSE; 

END  IF; 

{algorithm  finds  smallest  asset  that  will  hold  cargo.  If  cargo  it  too  big  for  any  of  the  assets,  the  largest  asset  available  will  be  used 
and  the  cargo  will  be  separated  into  a  useable  fit) 

WHILE  (aaset  <  >  NILOBI)  AND  (NOT  cargoAHLoaded) 

REPEAT 

IF  (ASK  asset  type  =  ASK  Load  MOR) 

IF  (cargoWeight  <  *  attet.assetDimens. weight)  AND  (asset. assetDimens.weight  < 

smallest  Asset. assetDi  mens,  weight) 

smallest  Asset  :  *  asset; 
allCargoWillFit  :=  TRUE; 
assetAvailable  :*  TRUE; 

ELSIF  (NOT  allCargoWillFit)  AND  (asset .asset Dimens  weight  >  biggestAstet. assetDimens.weight) 
biggestAsaet :«  asset; 
assetAvailable  : «  TRUE; 

END  IF; 

END  IF; 

asset  :«  ASK  Motorpool.AssetList  Next  (asset); 

UNTIL  (asset  -  NILOBI); 

{Found  the  right  asset  to  load  cargo  upon) 

IF  allCargoWillFit 

chosenAsset :«  smallest  Asset; 

ELSE 

chosenAsset  :•  biggest  Asset; 

END  IF; 

IF  ((NOT  cargo AllLoaded)  AND  (assetAvailable)) 

maxCanBcLoaded :  =  chosenAsset. assetDimens.weight; 
maxCanBePutOn  ; ”  chosenAsset. assetDimens. length; 

IF  (cargoWeight  <  «  maxCanBcLoaded) 

IF  (Loed.nontepsrsble)  AND  (cargoUngth  <  =  maxCanBePutOn) 

ASK  Motorpool.AssetList  TO  RemoveThis  (chosenAsset); 

FindAssetTypeRecord(chosenAsset.vehType,  Motorpool.VehiclesRecord,  VehTypeRecord); 
EF(VehTypeRecord  =  NILOBJ) 

ASK  TraceStream  TO  WriteStringCOOT  a  NILOBI  from  FindAssetTypeRecord****"); 

ASK  TraceStream  TO  WriteLn; 

ELSE 

ASK  VehTypeRecord  TO  GetCommitted; 

END  IF; 

ASK  chosenAsset. loadDimens TO  UpdateLengthLoad  (Load. length); 

ASK  chosenAsset  . load  Dimens  TO  UpdateLoad  Weight  (Load  weight); 

TELL  Motorpool  TO  MatchCargoToAsset  (chosenAsset,  Load); 

ASK  Convoy. AssetLiit  TO  Add  (chosenAsset); 
cargoAHLoaded  :  •=  TRUE; 

ELS  IF (NOT  Load.nonsaparable) 
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ASK  Motorpool.  AssetList  TO  RemoveThis  (chosenAsset); 

FindAssetTypeRecord(chosenAssel.vehType.  Motorpool.VehiclesRecord,  VehTypeRecord); 

IF(V  ehTy  peRecord  =  NILOBJ) 

ASK  TraceStream  TO  WriteString("GOT  a  NILOBJ  from  Find  AssetTypeRecord*  ***'); 

ASK  TraceStream  TO  WriteLn; 

ELSE 

ASK  VehTypeRecord  TO  GetCommitted; 

END  IF; 

ASK  chosenAssev. loadDimens  TO  UpdtteLoadWeight  (Load .weight); 

TELL  Motorpool  TO  MatchCargoToAsset  (chosenAsset,  Load); 

ASK  Convoy. AssetList TO  Add  (chosenAsset); cargo AIlLoaded  :=  TRUE; 

END  IF; 

ELS  IF  (NOT  Load.nonseparable) 

ASK  Load  TO  SeparateCargo  (maxCanBeLoaded,  separated  Load); 

ASK  Motorpool. AssetList  TO  RemoveThis  (chosenAsset); 

FindAssetTypeRecord(chosenAaset.vehType,  Motorpool. VehiclesRecord,  VehTypeRecord); 

IF(V  ehTypeRecord  =  NILOBJ) 

ASK  TraceStream  TO  WriteString(“GOT  a  NILOBJ  from  FindAssetTypeRecord****"); 

ASK  TraceStream  TO  WriteLn; 

ELSE 

ASK  VehTypeRecord  TO  GetCommitted; 

END  IF; 

ASK  Convoy. AssetList  TO  Add  (chosenAsset); 

ASK  chosenAsset.loadDimensTO  UpdateLoadWeight  (separatedLoad.weight); 

TELL  Motorpool  TO  MatchCargoToAsset  (chosenAsset,  separated  Load); 

END  IF; 

END  IF; 

END  WHILE; 

UNTIL  (cargoAHLoaded)  OR  (NOT  asset  Available); 

IF  (NOT  cargo  AU  Loaded)  AND  (NOT  aasetAvailable) 

ASK  CouldNotLoadQueueTO  Add  (Load); 

END  IF; 

END  PROCEDURE  {Find Aaaets } ; 

{INPUTS  A  LOAD.  WILL  ADD  LOAD  TO  A  LOADED  ASSET  ALREADY  IN  THE  CONVOY  IF  ROOM  IS  AVAILABLE  } 

{ - j 

PROCEDURE  CheckLoadedAsaeta  (INOUT  Motorpool  :  MotorpooIObj;  INOUTConvoyConvoyObj; 

INOUT  Load  :  CargoObj; 

OUT  cargo  AIlLoaded  :  BOOLEAN); 

( - > 

VAR 

cargoWeight,  cargo  Length, 
maxCanBeLoaded,  maxCanBePutOn :  REAL; 
asaet  :  AaaetObj; 

ellCargoWillFh,  aasetAvailable  :  BOOLEAN; 
separated  Load  :  CargoObj; 

BEGIN 

cargo  AIlLoaded  : »  FALSE; 

asset  :*  ASK  Convoy. AssetList  First  0; 

IF  (asaet  <  >  NILOBJ) 

REPEAT 

IF  (asaet.type  =  Load.MOR) 

maxCanBeLoaded ;»  asaet. asaetDimens. weight  - 
asaet. load  Dimens,  weight; 

maxCanBePutOn  :  =  asaet. asaetDimens. length  -  asset. loadDimens. length; 
cargoWeight  ■“  Load. weight; 
cargo  Length  .  =  Load,  length; 

IF  cargoWeight  <  ”  maxCanBeLoaded 
IF  (Load. nonaeparable)  AND  (cargoLength  <  =  maxCanBePutOn) 

ASK  aaaet.loadDimensTO  UpdateLoadWeight  (Load. weight); 

ASK  asset. loadDimens  TO  UpdateLengthLoad(Load. length); 
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TELL  Motorpool  TO  MttchCargoToAssef  (asset,  Load); 
cargoAULoaded  :=  TRUE; 

ELS  IF  (NOT  Load  .no  inseparable) 

ASK  asset. loadDimens  TO  UpdateLoadWeight(Load  .weight); 

TELL  Motorpool  TO  MatchCargoTo  Asset  (asset,  Load); 
cargoAULoaded  :=  TRUE; 

END  IF; 

ELS  IF  (maxCanBe  Loaded  >  0.0)  AND  (NOT  Load,  no  inseparable) 

ASK  Load  TO  SeparateCargo  (maxCanBe Loaded. 

separated  Load); 

ASK  asset  . loadDimens  TO  UpdateLoadWeight  (separated Load  . weight); 

TELL  Mototpool  TO  MatchCargoToAsset  (asset,  separated  Load); 

END  IF; 

END  IF; 

asset  ASK  Convoy. AaactList  Next  (asset); 

UNTIL  (cargoAULoaded)  OR  (asset  =  NILOBJ), 

END  IF; 

END  PROCEDURE  {CheckLoaded  Assets}; 

END  {IMPLEMENTATION}  MODULE  {checkas}. 

{***•*•******•*•*•*•*••****•**•••*****•******•*****••••**•**}  DEFINITION  MODULE  CONVOY; 

{All  actions  of  a  convoy  are  defined  here.  Everthing  from  loading,  travelling  and  actions  upon  entering  a  node  are  included} 
FROM  GLOBAL  IMPORT  AssctTypeQueue,  NodeTypeQueue; 

FROM  ROUTE  IMPORT  LinkObj,  RouteObj; 

FROM  SUPPLY  IMPORT  SupplyObj; 

FROM  NODE  IMPORT  NodeObj; 

EXPORTTYPE 

ConvoyObj  «  OBJECT;  FORWARD; 

TYPE 

ConvoyObj  *  OBJECT 
name  ;  STRING; 

maxAaaeta,  {max  assets  allowed  in  convoy} 

distTweenAsaets,  {distance  in  feet,  between  assets} 

distBetweenConvoys,  {distance  between  2  convoys} 
totalLength  ;  REAL;  {actual  length  of  die  convoy} 

arrivarTimc  ;  REAL;  {time  convoy  arrives  at  mission  destination} 

PMCSume  :  REAL;  {time  required  for  entire  convoy  to  do  PMCS} 
allow  Breakdowns  :  BOOLEAN;  {TRUE  if  wrecker  is  not  svsil} 
fixTime  :  REAL;  {if  wrecker  or  maint  it  svsil,  time  req  to  fix  asset} 

mistionT ype  :  STRING;  {either  RESUPPLY,  RECOVERY,  or} 
home  :  STRING;  {RETURN(fixed  asset)} 

priority  :  REAL;  {priority  of  highest  cargo  is  given  to  convoy} 

route Di st  :  REAL;  {distance  in  miles  of  route  to  destination} 

retumRouteDist  ;  REAL;  {in  miles  of  return  trip  home} 

ftielNotNeeded  :  BOOLEAN;  {if  TRUE  assets  do  not  have  to  refuel} 

Asset  List  ;  AssctTypeQueue; 

Deadlined Point :  AssctTypeQueue; 

ASK  METHOD  Objlnit; 

ASK  METHOD  ObjTerminste; 

ASK  METHOD  GetName  (IN  Name  :  STRING); 

ASK  METHOD  GetMissionType  (IN  Mission  :  STRING; 

IN  Home  ;  STRING; 

IN  distBetweenConvoy  :  REAL; 

IN  wreckers  Avail  :  BOOLEAN; 

IN  fixTime  :  REAL); 

ASK  METHOD  Get  Distances  (IN  routeDistsnce  :  REAL; 

IN  ratumRoute Distance  :  REAL); 
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TELL  METHOD  Travel  (IN  Destination  :  STRING; 

IN  Route  ;  RouteObj; 

IN  MasterNodeList  :  NodeTypeQueue); 

TELL  METHOD  EnterNode  (IN  destination  :  STRING; 

IN  location  :  STRING; 

IN  MasterNodeList  :  NodeTypeQueue; 

IN  Route  :  RouteObj; 

IN  linkDistsnce  :  REAL); 

TELL  METHOD  CheckAssetStatur  (IN  Route  :  RouteObj; 

IN  currentLocation  ;  NodeObj; 

IN  MasterNodeList  :  NodeTypeQueue); 

ASK  METHOD  FindClosestMaintenance  (IN  Route  :  RouteObj; 

IN  currentLocation  :  STRING; 

IN  MasterNodeList  :  NodeTypeQueue; 

OUT  maintNode :  NodeObj); 

TELL  METHOD  Refuel  (IN  location  :  STRING; 

IN  MasterNodeList  :  NodeTypeQueue); 

TELL  METHOD  PerformRecovery  (IN  Node  :  NodeObj; 

IN  Origin  ;  STRING); 

TELL  METHOD  PerformPMCS  (IN  location  ;  STRING; 

IN  MasterNodeList :  NodeTypeQueue); 

ASK  METHOD  Get  Length  (IN  distBetweenVeh  :  REAL); 

TELL  METHOD  EnterSupply  (IN  Supply  :  SupplyObj); 

ASK  METHOD  NotRefiielDuringMsn; 

TELL  METHOD  FixAsset; 

TELL  METHOD  Break  (IN  breakTime  ;  REAL); 

TELL  METHOD  Crosslink  (IN  CrossTime  ;  REAL); 

TELL  METHOD  Stand  Down  (IN  Stand  DownTime  :  REAL); 

END  OBJECT  {Convoy}; 

END  {DEFINITION}  MODULE  {convoy}. 

IMPLEMENTATION  MODULE  CONVOY; 

{This  procedure  does  the  travelling  from  one  node  to  another} 

FROM  SimMod  IMPORT  SimTime; 

FROM  ResMod  IMPORT  ReeourceObj; 

FROM  GLOBAL  IMPORT  NodeNameType,  LinkTypeQueue,  AssetTypeQueue,  NodeTypeQueue,  ALL  roadCharact; 
FROM  ROUTE  IMPORT  UnkObj,  RouteObj; 

FROM  ASSET  IMPORT  AssetObj,  RecoveryObj; 

FROM  NODE  IMPORT  NodeObj,  DeadlinePointObj,  DeadlinedQueue; 

FROM  FINDNOD  IMPORT  FindNode; 

FROM  Debug  IMPORT  TraceStream; 

FROM  SUPPLY  IMPORT  SupplyObj,  SupplyPointObj; 

FROM  FINDSUP  IMPORT  FindAssetTypeRecord; 

FROM  RECORDS  IMPORT  VehTypeRec; 

OBJECT  ConvoyObj; 

{ - } 

ASK  METHOD  GetName(IN  Name  ;  STRING); 

{ - } 

BEGIN 

name  Name; 

END  METHOD  {GetName}; 

{ - } 

ASK  METHOD  Objlnit; 

{ - ) 

BEGIN 

NEW(AsaetList); 

END  METHOD  {Objlnit}; 
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{ - ! 

ASK  METHOD  ObjTerminate; 

{ - } 

BEGIN 

DlSPOSE(As<etUit); 

END  METHOD  {ObjTerminate} ; 


ASK  METHOD  GetMissionType  (IN  Minion  :  STRING; 
IN  Home  :  STRING; 

IN  distance  :  REAL; 

IN  wreckers  Avail  :  BOOLEAN; 

IN  repairTime  :  REAL); 

{ - } 

BEGIN 

miuionType  ;=  Minion; 
home  :  =  Home; 

diitBetweenConvoyi :  =  distance; 

IF(wreckersAvail) 

allowBreakdowna  :  =  FALSE; 

ELSE 

allowBreakdowna  :  =  TRUE; 

END  IF; 

fixTime  :=  repairTime; 

END  METHOD  {GetMinionType}; 

{ - } 

ASK  METHOD  Get  Distances  (IN  RouteDi  stance  ;  REAL; 

IN  RetumRoute Distance  :  REAL); 

{ - } 

BEGIN 

route  Di  at  RouteDi  stance, 

retumRouteDist ;«  R eft) mRouteDi stance, 

END  METHOD  {OetDisUnces}; 

{ - } 

TELL  METHOD  Travel  (IN  Destination  :  STRING; 

IN  Route  :  RouteObj; 

IN  MasterNodeList :  NodeTypeQueue); 

{ - } 

VAR 

asaet  :  AsaetObj; 

Link  :  LinkObj; 
checkRoute  :  RouteObj; 

Node  :  NodeObj; 

updated Odometer,  update'"  Fuel  Level :  REAL; 
timeElapsed, 

mostTime Elapsed  :  REAL; 

TravelTime  :  REAL; 
clearanceDist :  REAL; 
clears nceTime :  REAL; 
rate  :  REAL; 

BEGIN 

NEW(checkRoute); 

NEW(Node); 
checkRoute  :  =  Route; 

Link  ;  =  ASK  Route. LinkRoute  First  0; 

REPEAT 

asaet  : «  ASK  AsaetList  First  0; 

TravelTime  :  =  0.0; 

REPEAT 
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ASK  asset  TO  UpdateGuages  (Link); 
timeElapsed  :=  ASK  Link  distance/ ASK  asset  rateOfTravel 
[Link.roadSurface,  Link  .terrain]; 

IF  (timeElapsed  >  mostTime Elapsed) 

TravelTime  :=  timeElapsed; 

rate  :  =  ASK  asset  rateOfTravel[Link.roadSurface,  Link. terrain]; 

END  IF; 

asset  :  =  ASK  AssetList  Next  (asset); 

UNTIL  (asset  =  NILOBJ); 

clearanceDist  :  =  (total Length  +  distBetweenConvoys)/5280.0; 
clearanceTime  :  =  clearanceDist/ rate; 

FindNode(Link. origin,  MasterNodeList,  Node); 

WAIT  FOR  Node.dearanceTO  PriorityOive  (SELF,  1,  SELF.priority); 

WAIT  FOR  SELF  TO  CrossLink  (clearanceTime) 

ASK  Node.dearanceTO  TakeBack  (SELF,  1); 

END  WAIT; 

END  WAIT; 

WAIT  FOR  SELF  TO  CrosaLink  (TravelTime  -  clearanceTime) 

END  WAIT; 

WAIT  FOR  SELF  TO  EnterNode  (Destination,  Link.destin,  MasterNodeList,  checkRoute,  Link. distance); 

END  WAIT; 

IF((ASK  AssetList  numberln)  =  0) 

TERMINATE; 

END  IF; 

Link  :*  ASK  Route. LinkRoute  Next  (Link); 

UNTIL  (Link  -  NILOBJ); 

END  METHOD  {Travel}; 

{ - } 

TELL  METHOD  EnterNode  (IN  destination  :  STRING; 

IN  location :  STRING; 

IN  MasterNodeList :  NodeTypeQueue; 

IN  Route  :  RouteObj; 

IN  linkDistance  :  REAL); 

{ - } 

VAR 

Node  :  NodeObj; 
convoy  :  ConvoyObj; 
asset  :  AsaetObj; 

Home  :  NodeObj; 
miledTraveled  :  REAL; 

NMC  :  INTEGER; 

BEGIN 

FindNode  (location,  MasterNodeList,  Node); 

FindNode  (home,  MasterNodeList,  Home); 

{do  not  check  asset  status  if  back  home} 

IF(Node.name  <  >  SELF  .home) 

WAIT  FOR  SELF  TO  CheckAssetStatus  (Route,  Node,  MasterNodeList); 

END  WATT; 

END  IF; 

IF((ASK  AssetList  numberln)  *  0) 

TERMINATE; 

END  IF; 

IF  ((ASK  Node  name)  =  destination) 
arrivalTime  :  =  SimTime  0; 

IF  (missionType  =  ’Resupply') 

ASK  Home.myMotorpool. Dispatch  TO  WriteString("CONVOY  "  +  SELF. name -I-  "  arrivedat*  +  Node. name); 
ASK  Home.myMotorpool. Dispatch  TO  WriteLn; 
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ASK  Home  .myMotorpool . Dispitch  TO  WriteStringC  TIME  OF  ARRIVAL  i>  *  +  REALTOSTR  (SimTimeO)); 
ASK  Home. myMotorpool. Dispatch  TO  WriteLn; 

ASK  Home.myMotoipool.DiapatchTO  WriteStringC .  Number  in  convoy  is  "  +  INTTOSTR  (ASK  AssetList 

numberln)); 

aaaet  :  -  ASK  AssetList  First  0; 

REPEAT 

ASK  asset  TO  CheckForBreakdown; 

IF(NOT  asset. missionCapsble) 

NMC  :=  NMC  +  1; 

END  IF; 

asset  :  =  ASK  AssetList  Next  (asset); 

UNTIL  (asset  =  NILOBJ); 

TELL  SELF  TO  EnterSupply(Node.mySuppIy); 

IF(routeDist  >  N ode. maxMiles Allowed) 

WATT  FOR  SELF  TO  StandDown  (Node.standDownTime) 

END  WAIT; 

END  IF; 

ELS  IF  (missionType  =  ’Recovery*) 

WAIT  FOR  SELF  TO  PerformRecovejy(Node,  Route. origin); 

END  WATT; 

ELSE  {must  be  a  repaired  asset,  even  if  not,  let  in} 

WHILE(ASK  AssetList  numberln  <  >  0) 
asset  :=  ASK  AssetList  Remove  0; 

ASK  Node.myMotorpooI.  AssetList  TO  Add(asset); 

END  WHILE; 

END  IF; 

ELSE 

milesTraveled  :=  linkDi stance; 

IF(miIesTreveled  >  «  Node. miles BeforeBreak) 

WAIT  FOR  SELF  TO  Break  (Node.breakTime) 

END  WATT; 

END  IF; 

END  IF, 

END  METHOD  {EnterNode}; 

{ - > 

TELL  METHOD  CheckAaaetStatus  (IN  Route  :  RouteObj; 

IN  currentLocation ;  NodeObj; 

IN  MasterNodeList :  NodeTypeQueue); 

{ - } 

VAR 

i,  n u mb erOf Assets  :  INTEGER; 
asset,  copy  :  AssetObj; 

InspectionQueue ;  AssetTypeQueue; 

Node,  maintNode :  NodeObj; 
deadlined  Assets :  DeadlinePointObj; 

VehTypeRecord :  VehTypeRec; 
distHome,  distDestin  :  REAL; 

Link  :  LinkObj; 
distance  :  REAL; 

range.  Range,  maxRange,  MaxRange  :  REAL; 
atHome,  found  Location,  fuelpointFound  :  BOOLEAN; 

BEGIN 

{check  vehicle  maintenance  status,  if  non-mission  capable,  find  shortest  distance,  either  back  home  or  at  mission  destination.  Schedule 
recovery  mission,  asset  will  be  recovered  and  hauled  back.  Cargo  will  be  loaded  off  at  destination  or  mission  rescheduled  if  taken 
back  home} 

{performing  PMCS,  If  NMC,  put  in  Deadlined  Queue) 

NEW(dead!ined  Assets); 

NE  W(InspectionQueue) ; 
atHome  :  *=  FALSE; 


numberOfAueU  : «  (ASK  AssetList  numberln); 

WHILE  (ASK  AssetList  numberln  >  0) 

asset  :  =  ASK  Asset  Li  at  Remove  0; 

ASK  asset  TO  CheckForBreakdown; 

IF(NOT  asset. missionCapable) 

FindNode(asset.home,  MasterNodeList,  Node); 

IF(aUowBreekdowns) 

FindAssetTypeRecord(asset.vehType,  Node.myMotorpool.VehiclesRecord,  VehTypeRecord); 

ASK  VehTypeRecord  TO  GetUncommitted; 

ASK  VehTypeRecord  TO  GetDeadlined; 

ASK  deadiinedAssets.AssetQueueTO  Add  (asset); 

ASK  Node.myMaintenance.MaintReportTO  WriteString  ("Asset  NMC  at  "  +  currentLocation.name); 
ASK  Node.myMaintenance.MaintReportTO  WriteString  (".  Bumper Numberis '  +  asset.bumperNumber); 
ASK  Node.myMaintenance.MaintReportTO  WriteLn; 

ASK  Node.myMaintenance.MaintReportTO  WriteString  (*  Time  of  breakdown  is  "  + 

REALTOSTR(SimTime<))); 

ASK  Node.myMaintenance.MaintReportTO  WriteLn; 

ASK  Node.myMaintenance.MaintReportTO  WriteLn; 

ELSE 

ASK  InspectionQueueTO  Add(asset); 

IF(NOT  asset  .tempFix) 

ASK  Node.myMaintenance.MsintReportTO  WriteString  ("Asset  NMC  at  "  + 

currentLocation.name); 

ASK  Node.myMaintenance.MaintReport TO  WriteString  (".  Bumper  Number  is  ’  + 

asaet.bumperNumber); 

ASK  Node.myMaintenance.MaintReportTO  WriteLn; 

ASK  Node.myMaintenance.MaintReportTO  WriteString  ("  Time  of  breakdown  is  ’  + 

REALTOSTR(SimTimeO)); 

ASK  Node.myMaintenance.MaintReportTO  WriteLn; 

ASK  Node.myMaintenance.MaintReportTO  WriteLn; 

ASK  asset  TO  FixTemporarily; 

WATT  FOR  SELF  TO  FixAaaet 
END  WAIT; 

END  IF; 

END  IF; 

ELSE 

ASK  InapectionQueueTO  Add  (asset); 

END  IF; 

END  WHILE; 

IF((ASK  deadlined Assets. AsaetQueue numberln)  >  0) 

{getting  home  of  asset} 

asset  :»  ASK  deadlined  Assets.  AsaetQueue  FirstO; 

ASK  currentLocation.deadlinePointQueueTO  Add  (deadlined  Assets);  {get  name  of  closest  maintenance  node} 
FindCloaeatMaintenance (Route,  currentLocation.name,  MasterNodeList,  maintNode); 

{took  out  deadline  Asset  below} 

ASK  daadlinedAsaets  TO  G«*Recoverer( maintNode. name); 

TELL  maintNode.  myMaintena  nee  TO  RecoverAssets(currentLocation.name,  ASK  deadlinedAssets.AssetQueueiumberln); 
{Tell  home  motorpool  that  asset  is  deadlined} 

FindNode(asset.home,  MasterNodeList,  Node); 

Find Asae«TypeRocord(aiset . vehType,  Node.myMotorpool.VehiclesRecord,  VehTypeRecord); 

END  IF; 

END  IF; 

{return  assets  to  convoy,  finished  with  inspection} 

WHILE  (ASK  InspectionQueue  numberln  >  0); 

asset  :=  ASK  InspectionQueueTO  Remove  0; 

ASK  AssetList  TO  Add  (asset); 

END  WHILE; 

{check  each  assets  range  to  next  node  with  a  Fuelpoint.  If  all  assets  can  make  travel  with  avail  fuel,  do  not  refuel.  If  at  least  one 
cannot,  refuel  all  assets.  If  link  distance  too  long,  cany  reserve  fuel} 
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IF((ASK  AssetList  numberln)  =  0) 

TERMINATE; 

END  IF; 

IF((currentLocition.iume  <  >  Route. destin)  AND  (NOT  fuelNotNeeded)) 

{  dont  worry  about  refuelling  if  at  destination} 
distance  :  -  0.0; 

Link  :  =  ASK  Route. LinkRoute  First  0;  ' 

{Finding  distance  to  next  Fuelpoint} 

REPEAT 

IF((ASK  Link  origin  =  currentLocation.name)  OR  (foundLocation)) 
foundLocation  :=  TRUE; 

{find  next  node  that  has  fuel,  at  link  destin  for  Fuelpoint  availability} 
distance  :=  distance  +  Link. distance; 

FindNode(Link.destin,  MasterNodeList,  Node); 

IF(Node.myFuelpoint  <  >  NILOBJ) 
fuelpointFound  :  =TRUE; 

END  IF; 

END  IF; 

Link  :=  ASK  Route. LinkRoute  Next  (Link); 

UNTTL((Link  =  NILOBJ)  OR  (fuelpointFound)); 
asset  :  =  ASK  AssetList  First  0; 

REPEAT 

range  :  =  (asaet.fuelCap  -  asset. fuelLevel)  *  (asset .fuelConsump); 
maxRange  :  =  asaet.fuelCap  *  asset. fuelConsump; 

IF(range  <  Range) 

Range  :  =  range; 

END  IF; 

{After  refueling,  need  to  see  if  distance  is  still  too  great  for  fully  fueled  assets} 

IF(maxRange  <  MaxRange) 

MaxRange  :=  maxRange; 

END  IF; 

asset  :=  ASK  AssetList  Next  (asset); 

UNTIL  (asset  *  NILOBJ); 

IF (Range  <  distance) 

WAIT  FOR  SELF  TO  Refuel  (Node.name,  MasterNodeList); 

END  WAIT; 

END  IF; 

IF (MaxRange  <  distance) 

{carry  reserve  to  next  node,  have  to  check  if  node  hat  a 
fuelpoint,  if  not,  then  must  carry  enough  fuel  to  make  it  there 
w/delays} 

END  IF; 

END  IF; 

END  METHOD  {CheckAaaetStatus}; 

{ - } 

ASK  METHOD  FindClosestMaintenance  (IN  Route  :  RouteObj; 

IN  currentLocation  :  STRING; 

IN  MasterNodeList  :  NodeTypeQueue; 

OUT  maintNode  :  NodeObj); 

{ - } 

VAR 

Node  :  NodeObj; 
distHome,  distDestin  :  REAL; 

Link  :  LinkObj; 
distance  :  REAL; 

foundLocation,  fuelpointFound  :  BOOLEAN; 

BEGIN  a 

distHome  :«  0.0; 
distDestin  :  =  0.0; 
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found  Location  :  *=  FALSE; 

Link  :  =>  ASK  Route.  LinkRoute  Fint  0; 

REPEAT 

IF((ASK  Link  origin  =  currentLocation)  OR  (foundLocation)) 
foundLocetion  :  =  TRUE; 
distDestin  :  =  dittDestin  +  Link. distance; 

ELSE 

distHome  :=  distHome  +  Link  .distance; 

END  IF; 

Link  :  =  ASK  Route. LinkRoute  Next  (Link); 

UNTIL(Link  «  NILOBJ); 

FindNode(Route.destin,  MasterNodeList,  Node); 

DF((distDestin  >  =  distHome)  AND  (Node.myMaintenance  <  >  NILOBJ)) 
maintNode :  =  Node; 

ELSE 

FindNode(home,  MasterNodeList,  Node); 
maintNode ;  =  Node; 

END  IF; 

END  METHOD  {FindClosestMaintenance}; 

< - } 

TELL  METHOD  Refuel  (IN  location  :  STRING; 

IN  MasterNodeList ;  NodeTypeQueue); 

{ - } 

VAR 

fiielUsed  :  REAL; 
asset  :  AaaetObj; 

Node  :  NodeObj; 
pumps  Used  :  INTEGER; 

BEGIN 

pumpsUsed  :«  0; 

Find N ode(location ,  MasterNodeList,  Node); 

IF  (Node.myFuelpoint  <  >  NILOBJ) 

asset  ASK  AsaetList  First  0; 

IF(asset.fuelLevel  <  >  asset. fuelCap) 

REPEAT 

WAIT  FOR  Node.myFuelpoint.FuelPumpsTO  Give  (SELF,  I); 

INC(pumpsUsed); 

WAIT  FOR  Node.myFuelpoim TO  PumpFuel  (fuel Used,  0.0); 

ASK  Node.myFuelpoint.FuelPumpsTO  TakeBack  (SELF,  I); 

ASK  asset  TO  Refuel  (fuelUaed); 

IF(pumpsUsed  >  =  Node. myFuelpoint. Fuel Pumps.MaxResources) 

WAIT  DURATION  Node.myFuetpoint.refuelTime 

END  WAIT; 
pumpsUsed  :»  0; 

END  IF; 

END  WATT; 

END  WAIT; 

asset  :  =  ASK  AsaetList  Next  (asset); 

UNTIL  (asset  =  NILOBJ); 

IF((pumpaUted  <  Node.myFuelpoim. FuelPumps.MaxReaources)OR  (pumpsUsed  <  >  0)) 
WAIT  DURATION  Node . myFuelpoint . refuelTime 
END  WAIT; 

END  IF; 

END  IF; 

END  IF; 

END  METHOD  {Refuel}; 

{ - } 

TELL  METHOD  PerformRecovery  (IN  Node  :  NodeObj; 

IN  Origin  :  STRING); 
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{ - } 

VAR 

deedLinedAueti :  DeedlinePointObj; 
wrecker  :  RecoveryObj; 
brokenAttet :  AeeetObj; 
foundDeedlinedAueti :  BOOLEAN; 

BEGIN 

foundDeedlinedAueti  :*  FALSE; 

deadLinedAueU  :  =  ASK  Node.deedlinePointQueue  Firtt  0; 

REPEAT 

IF  (deedLinedAueti. recoverer  =  Origin) 
foundDeedlinedAueti :  -  TRUE; 

ELSE 

deedLinedAueti :  =  ASK  Node.deedlinePointQueue  Next  (deed  Lined  Assets); 
END  IF; 

UNTIL  ((deedLinedAueti  *  NILORJ)  OR  (foundDeedlinedAssets)); 
wrecker  :=  ASK  AuetList  First  0; 

REPEAT 

DF((ASK  deedLinedAueti. AssetQueue numberln)  >  0) 

brokenAsset :  =  ASK  deedLinedAsseU. AssetQueue RemoveO; 

WAIT  FOR  wrecker  TO  HookUp(brokenAsset); 

END  WAIT; 

ELSE 

ASK  TreceStreem  TO  WriteString(*could  not  find  deedlined  ssset"); 

ASK  TreceStreem  TO  WriteLn; 

END  IF; 

wrecker  ASK  AuetList  Next  (wrecker); 

UNTXL(wrecker  «  N1LOBJ); 

END  METHOD  {PerformRecovery}; 

< - } 

TELL  METHOD  PerformPMCS  (IN  locetion  :  STRING; 

IN  MsnterNodeList :  NodeTypeQueue); 

{ - } 

VAR 

fiielUsed  :  REAL; 

i,  nu mberOf Assets ,  pumpsUsed  :  INTEGER; 
ssset  :  AeeetObj; 

Deedlined  Queue,  InspectionQueue  .-  AssetTypeQueue; 

Node  :  NodeObj; 

found  Locetion,  fuelpointFound  :  BOOLEAN; 

VehTypeRecord :  VehTypeRec; 

BEGIN 

{performing  PMCS,  If  NMC,  put  in  Deedlined  Queue) 

NEW(DeedlinedQueue); 

NEW(InspectionQueue); 

FindNode(locetion,  MesterNodeList,  Node); 
numberOfAuets  :«  (ASK  AseetList  numberln); 

WAIT  DURATION  PMCStime 
END  WAIT; 

FOR  i  :  =  I  TO  numberOfAuets 

ssset  : »  ASK  AseetList  Remove  0; 

IF  (ssset  <  >  NILOBJ) 

ASK  suet  TO  CheckForBreekdown; 

IF (NOT  esset.miuionCepeble) 

ASK  DeedlinedQueue  TO  Add  (suet); 

ELSE 

ASK  InspectionQueue  TO  Add  (ssset); 

END  IF; 

END  IF; 
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END  FOR; 

IF((ASK  Deadlined  Queue  numberln)  >  0) 

numberOfAueti :  =  (ASK  Deed  lined  Queue  numberln); 

FOR  i  :  =  1  TO  numberOfAueU 

aieet  :  =  ASK  DeedtinedQueue  RemoveO; 

FindAuetTypeRecord(iuet.vehType,  Node.myMotorpool.VehiclesRecord,  VehTypeRecord); 
IF(VehTypeRecord  =  NILOBJ) 

ASK  TraceStreem  TO  WriteString("GOT  a  NILOBJ  from  FindAssetTypeRecord****") 
ASK  TraceStreem  TO  WriteLn; 

ELSE 

ASK  VehTypeRecord  TO  OetDeadlined; 

ASK  VehTypeRecord  TO  GetUncommitted; 

END  IF; 

TELL  Node.myMiintenanceTO  ReceiveWork(aaiet); 

END  FOR; 

END  IF; 

numberOfAueti  :=  (ASK  IrupectionQueue numberln); 

IF( numberOfAueti  >  0) 

FOR  i  :»  1  TO  numberOfAueti 

a  net  :  =  ASK  InipectionQueue  TO  Remove  0; 

IF(auet  <  >  NILOBJ) 

ASK  AuetLiit  TO  Add  (auet); 

END  IF; 

END  FOR; 

END  IF; 

{Refuel  Aueli} 

IF  (Node.myFuelpoint  <  >  NILOBJ) 
pumpiUied  :•  0; 
auet  :«  ASK  AuetLiit  Fint  0; 

REPEAT 

ASK  auet  TO  ReaetTripOdometer; 

WAIT  FOR  Node.myFuelpoint.FuelPumptTO  Give  (SELF,  1); 

WAIT  FOR  Node.myFuelpoint  TO  PumpFuel  (fuelUied,  0.0); 

ASK  Node.myFuelpoint.FuelPumpiTO  TakeBack  (SELF,  I); 

ASK  auet  TO  Refuel  (fiielUied); 

IF(pumpiUied  >  *  Node.  myFuelpoint.FuelPumpi.MixReiou  reel) 

WATT  DURATION  Node.myFuelpoint.refuelTime 
END  WAIT; 
pumpiUied  :=  0; 

END  IF; 

END  WAIT; 

END  WATT; 

auet  :  -  ASK  AuetLiit  Next  (auet); 

UNTIL  (auet  -  NILOBJ); 

IF((pumpiUaed  <  Node.myFuelpoint. FuelPumpi.MaxReiourcei)OR  (pumpiUied  <  >  0)) 

WAIT  DURATION  Node.myFuelpoint.refuelTime 
END  WAIT; 

END  IF; 

END  IF; 

END  METHOD  {PerformPMCS}; 

{ - > 

ASK  METHOD  Get  Length  (IN  diitBetweenVeh  :  REAL); 

{ - } 

VAR 

auet  ;  AuetObj; 

BEGIN 

totalLength  0.0; 

auet :  *  ASK  AuetLiit  Fint  0; 

*  totalLength  :=»  a  net.  auet  Length, 

REPEAT 
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iitet  :  =  ASK  AeeetLiet  Next(e»»et); 

IF(aeeet  <  >  NILOBJ) 

toUlLength  :=  toul Length  +  eieet.assetLength  +  distBetweenVeh; 
END  IF; 

UNTlL(»«tet  =  NILOBJ); 

END  METHOD  {Get Length}; 

{ - } 

TELL  METHOD  EnterSupply  (IN  Supply  :  SupplyObj); 

{ - } 

VAR 

ReceivingPt :  Supply PointObj; 

BEGIN 

WAIT  FOR  Supply. receivingPointeQueueTO  PriorityGive  (SELF,  1,  SELF. priority); 
ReceivingPt  :=  ASK  Supply  .ReceivingPointe  TO  RemoveO; 

WAIT  FOR  Supply  TO  ReceiveSupplies(AeeetLiet,  SELF. priority,  ReceivingPt); 
ASK  Supply  .receivingPointeQueueTO  TekeBeck  (SELF,  1); 

ASK  Supply  .ReceivingPointe  TO  Add(ReceivingPt); 

END  WAIT; 

END  WATT; 

END  METHOD  {EnterSupply}; 

< - } 

ASK  METHOD  NotRefuelDuringMen; 

{ - } 

BEGIN 

fiielNotNeeded  :=  TRUE; 

END  METHOD  {NotRefuelDuringMen}; 

{ - } 

TELL  METHOD  FixAeeet; 

{ - } 

BEGIN 

WAIT  DURATION  fixTime 
END  WAIT; 

END  METHOD  {FixAeeet}; 

{ - } 

TELL  METHOD  Break  (IN  breekTime  :  REAL); 

{ - } 

BEGIN 

WAIT  DURATION  breekTime 
END  WAIT; 

END  METHOD  {Break}; 

{ - } 

TELL  METHOD  CroeeLink  (IN  CroeaTime  :  REAL); 

{ - } 

BEGIN 

WAIT  DURATION  CroeaTime 
END  WAIT; 

END  METHOD  {CroeeLink}; 
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! - } 

TELL  METHOD  SundDown  (IN  SundDownTime  :  REAL); 

{ - > 

BEGIN 

t  WATT  DURATION  SundDownTime 

END  WATT; 

END  METHOD  {SundDown}; 

END  OBJECT  {Convoy}; 


END  {IMPLEMENTATION}  MODULE  {convoy}. 


I 
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